home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / games / gen.riq < prev    next >
Text File  |  1997-06-10  |  201KB  |  8,019 lines
  1. //幻獣シナリオファイル        動けばいいやで、めちゃくちゃなので
  2. //                    参考にしないほうがいいと思います
  3. //▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
  4.  
  5.     [START]                    //設定
  6.  
  7. //    ■■■■■　■■■■■　　　■　　　■■■■　　■■■■■
  8. //    ■　　　　　　　■　　　　■　■　　■　　　■　　　■
  9. //    ■■■■■　　　■　　　■　　　■　■■■■　　　　■
  10. //    　　　　■　　　■　　　■■■■■　■　　　■　　　■
  11. //    ■■■■■　　　■　　　■　　　■　■　　　■　　　■
  12.  
  13. //▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
  14. //
  15. //グローバル変数の宣言
  16.         //いろんなところで使用
  17.     &def 選択                //選択肢(%select)
  18.     &def 地名表示                //0:on,1:off(村の羊で)
  19.     &def 速度=1                //フィールドと家の中での移動速度(村の羊で)
  20.     &def 絶食                //1:戦闘後の食事をさせない,0:させる
  21.     &def 音楽
  22.     &def 敵出
  23.         //デバッグで
  24.     &def もん                //0:モンスターが出現する,1:出現しない
  25.     &def Ｄ速度=1
  26.         //ゲーム全体で
  27.     &def 主人公                //0:男,1:女
  28.     &def 秘石                //秘石の入手状況(0～5)(ゲーム進行)
  29.         //お宝
  30.     &def 全宝=30                //30:MAX
  31.     &def 宝01/////////////////////////////////村↓
  32.     &def 宝02
  33.     &def 宝03
  34.     &def 宝04
  35.     &def 宝05
  36.     &def 宝06/////////////////////////////////町↓
  37.     &def 宝07
  38.     &def 宝08
  39.     &def 宝09
  40.     &def 宝10
  41.     &def 宝11
  42.     &def 宝12
  43.     &def 宝13/////////////////////////////////アロンゲルスの洞窟↓
  44.     &def 宝14
  45.     &def 宝15
  46.     &def 宝16
  47.     &def 宝17
  48.     &def 宝18
  49.     &def 宝19/////////////////////////////////滝の洞窟↓
  50.     &def 宝20
  51.     &def 宝21
  52.     &def 宝22
  53.     &def 宝23
  54.     &def 宝24
  55.     &def 宝25/////////////////////////////////遺跡
  56.     &def 宝26
  57.     &def 宝27
  58.     &def 宝28
  59.     &def 宝29
  60.     &def 宝30
  61.         //図鑑
  62.     &def あいさつ
  63.     &def 本01
  64.     &def 本02
  65.     &def 本03
  66.     &def 本04
  67.     &def 本05
  68.     &def 本06
  69.     &def 本07
  70.     &def 本08
  71.     &def 本09
  72.     &def 本10
  73.     &def 本11
  74.     &def 本12
  75.     &def 本13
  76.     &def 本14
  77.     &def 本15
  78.     &def 本16
  79.     &def 本17
  80.     &def 本18
  81.             //宝箱            宝箱のパレットは"$03"だよ
  82.     &def 宝フラグ                //宝が取れたら1になる
  83.     &def 宝                    //アイテム名or番号を入れる
  84.     &def 金                    //金額を入れる
  85.             //戦闘
  86.     &def 所持金                //戦闘の終了の仕方を判定(逃避/勝利)
  87.     &def 魔物                //モンスターの種類
  88.     &def 魔物数                //モンスターの数
  89.             //幻獣成長要素
  90.     &def 魔                    //モンスターの魔力の要素
  91.     &def 力                    //モンスターの力の要素
  92.             //幻獣
  93.     &def 獣                    //0:幻獣１,1:幻獣２
  94.             //サブルーチンで使用
  95.     &def 幻獣                //
  96.     &def 幻魔                //
  97.     &def 幻力                //
  98.     &def 成長段階                //0:初期,1:第１段階,2:第２段階,3:最終段階
  99.     &def 幻初期化
  100.             //幻獣１
  101.     &def 幻獣1                //幻獣１の種類
  102.     &def 幻魔1                //幻獣１の魔の要素
  103.     &def 幻力1                //幻獣１の力の要素
  104.     &def 成長段階1                //幻獣１の成長段階
  105.             //幻獣２
  106.     &def 幻獣2                //幻獣２の種類
  107.     &def 幻魔2                //幻獣２の魔の要素
  108.     &def 幻力2                //幻獣２の力の要素
  109.     &def 成長段階2                //幻獣２の成長段階
  110.             //
  111.     &def Ｏ飛び                //オープニングスキップ
  112.         //変獣登場フラグ
  113.     &def ナカラ                //
  114.         //フィールド
  115.     &def 最初                //始めからゲームをしはじめた時
  116.         //村
  117.     &def 村の中                //町の中にいるよーん
  118.     &def 言い伝え                //0:情報なし,1:娘,2:村長
  119.     &def じじい                //じいさんと話した
  120.     &def 子育て                //青年と話した
  121.     &def 病気                //看病娘
  122.     &def 初宿                //宿に泊まった
  123.     &def にわ1                //
  124.     &def にわ2                //
  125.     &def 羊1                //
  126.     &def 羊2                //
  127.     &def 羊3                //うきょ
  128.     &def うき
  129.         //町
  130.     &def 町の中                //町の中にいるよーん
  131.     &def にわ3                //
  132.     &def 滝移動
  133.     &def 遺跡移動
  134.     &def ときめき
  135.     &def 本の中
  136.         //コロシアム
  137.     &def コロ中
  138.     &def 試合
  139.     &def 出場料
  140.     &def クラス
  141.     &def Ｃ優勝
  142.     &def Ｂ優勝
  143.     &def Ａ優勝
  144.     &def Ｓ優勝
  145.     &def ＭＸ                //メッセージ表示のＸ座標の基準数値
  146.     &def ＰＸ                //マーク表示のＸ座標の基準数値
  147.     &def 魔券
  148.     &def 賭金
  149.     &def ターン
  150.     &def 敗退1    //バグベア
  151.     &def 敗退2    //モスマン
  152.     &def 敗退3    //シルフ
  153.     &def 敗退4    //ゴブリン
  154.     &def 敗退5    //サキュバス
  155.     &def 敗退6    //リザードマン
  156.     &def 勝者
  157.         //洞窟１
  158.     &def 洞窟の中
  159.     &def ケル死
  160.     &def ヒント
  161.     &def にわ4
  162.     &def 開通
  163.         //滝＆洞窟２
  164.     &def 滝内
  165.     &def ナーガ死
  166.     &def にわ5
  167.         //森
  168.     &def 森の中
  169.     &def いも死
  170.     &def ミノ死
  171.     &def にわ6
  172.         //遺跡＆地下
  173.     &def 遺跡内
  174.     &def タロス死
  175.     &def にわ7
  176.  
  177. //初期設定
  178.     %bcirclecount=-1            //スポットは時間では小さくならない
  179.     %gold=300                //初期所持金
  180.     &partyspeed 2
  181.  
  182. //ＳＥ用音色データ読み込み
  183.     &bgm 33                    //ダミー
  184.     &bgm 10                    //音色データ読み込み GEN.ZMD
  185.     &bgm 9                    //音色データ読み込み SND.ZMD
  186.     
  187.     &goto TITLE
  188. //▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
  189.  
  190.     [TITLE]                    //タイトル＆ロード
  191.  
  192. //    ■■■■■　■　■■■■■　■　　　　　■■■■■
  193. //    　　■　　　■　　　■　　　■　　　　　■
  194. //    　　■　　　■　　　■　　　■　　　　　■■■■■
  195. //    　　■　　　■　　　■　　　■　　　　　■
  196. //    　　■　　　■　　　■　　　■■■■■　■■■■■
  197.  
  198. //▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
  199.     &sppsp PTN\GEN.SPP
  200.     &map MAP\KURO.MAP
  201.     &mapsp PTN\FIELD.SP
  202.     &mappal PTN\OPEN.PAL
  203.     %partypoint={15,14,2}
  204.     &commenu 0
  205.     &on
  206.     //!o(1)デバッグモードで起動しますか？pc
  207.     //&if(%inkeyn==0){&jmp でばく}
  208.  
  209. //小タイトル表示
  210.     &initscreen
  211.     &exec Xpicw -Wziwa -S3 -T2,0 CG\title0.pic -Cziwa -D3
  212.     &initscreen
  213. //ロードメニュー
  214.     &se 2
  215.     &load
  216. //大タイトル表示
  217.     &wait 50
  218.  
  219.     &bgm 32
  220.     
  221.     &exec Xpicw -Whol -T0.1 CG\title1.pic -Wziwa -S1 CG\title2.pic -Wziwa -S3 -Y -T3 CG\title3.pic -Cziwa
  222.     &initscreen
  223. //キャラクター選択
  224.     !o(0);キャラクターを選択して下さいpc
  225.     &monsprint 16,0,少年３,0
  226.     &monsprint 16,125,少年４,0
  227.     &monsprint 152,16,少女３,0
  228.     &monsprint 152,132,少女４,0
  229.  
  230.     &partyset 9                //操作キャラクターをカーソルパターンに
  231.     &on
  232.     
  233. //男の方にカーソルが移動したら
  234. #@0    &if(%direc<0){
  235.         &se 2
  236.         &monsprint 16,0,少年１,1    //表示
  237.         &monsprint 16,125,少年２,1    //
  238.         &monsprint 152,16,少女３,0    //影表示
  239.         &monsprint 152,132,少女４,0    //
  240.     }&else{    
  241.         &partyset 10            //透明君に
  242.         &on
  243.         %monsdef(0) ={$2,0,0,0,0,0,0,0,0,0}
  244.         &jsr 画面クリア
  245.     //種族定義    
  246.         %racenamedef(0) = 少年
  247.         %racedef(0) = {        //        レベルアップの時の
  248.              15, 8,23,    //HP  初期値,最低アップ値,最高アップ値,
  249.              0, 0,0,    //MP  初期値,最低アップ値,最高アップ値,
  250.              6, 6,15,    //力  初期値,最低アップ値,最高アップ値,
  251.              4, 3,8,    //素早さ  初期値,最低アップ値,最高アップ値,
  252.              6, 5,9,    //器用さ  初期値,最低アップ値,最高アップ値,
  253.              0,        //属性
  254.              1        //レベルアップテーブル
  255.         }
  256.         //%racemagicdef(0) = {}
  257.         //%racemagiclvldef(0) = {}
  258.  
  259.         !o(0);名前を入力して下さいpc
  260.         %partynamedef(0) = シャロム
  261.         &inputpartyname 0
  262.         %partydef(0)  = {$8,2,$20,0,5,0,グラディウス,レザーアーマー,0,0}
  263.         主人公=0
  264.     //オープニング見る？
  265.         !o(1)オープニングを見ますか？p
  266.         &if(%inkeyn==0){
  267.             !o(1)オープニングに入りますpc
  268.             &goto OPEN1
  269.         }&else{
  270.             !o(1)オープニングをスキップしますpc
  271.             Ｏ飛び=1
  272.             &goto SAISHO
  273.         }
  274.     }
  275.  
  276. //女の方にカーソルが移動したら
  277. #@1    &if(%direc<0){
  278.         &se 2
  279.         &monsprint 16,0,少年３,0
  280.         &monsprint 16,125,少年４,0
  281.         &monsprint 152,16,少女１,2
  282.         &monsprint 152,132,少女２,2
  283.     }&else{    
  284.         &partyset 10
  285.         &on
  286.         %monsdef(0) ={$2,0,0,0,0,0,0,0,0,0}
  287.         &jsr 画面クリア
  288.     //種族定義    
  289.         %racenamedef(0) = 少女
  290.         %racedef(0) = {        //        レベルアップの時の
  291.              8, 6,15,    //HP  初期値,最低アップ値,最高アップ値,
  292.              10, 5,25,    //MP  初期値,最低アップ値,最高アップ値,
  293.              3, 4,7,    //力  初期値,最低アップ値,最高アップ値,
  294.              6, 4,10,    //素早さ  初期値,最低アップ値,最高アップ値,
  295.              5, 6,8,    //器用さ  初期値,最低アップ値,最高アップ値,
  296.              1,        //属性
  297.              1        //レベルアップまでの必要経験値
  298.             //    (内部にあるテーブル×いくつか)
  299.         }
  300.         %racemagicdef(0) = {ケア１,ファイア,ケア２,フレイム,ケア３,ブレイズ}
  301.         %racemagiclvldef(0) = {2,5,8,10,15,18}
  302.  
  303.         !o(0);名前を入力して下さいpc
  304.         %partynamedef(0) = カティア
  305.         &inputpartyname 0
  306.         %partydef(0)  = {$9,2,$40,0,5,1,フルーレ,レザーアーマー,0,0}
  307.         主人公=1
  308.     //オープニング見る？
  309.         !o(1)オープニングを見ますか？p
  310.         &if(%inkeyn==0){
  311.             !o(1)オープニングに入りますpc
  312.             &goto OPEN1
  313.         }&else{
  314.             !o(1)オープニングをスキップしますpc
  315.             Ｏ飛び=1
  316.             &goto SAISHO
  317.         }
  318.     }
  319.     &&
  320. &label でばく
  321. //デバックモード設定
  322.     &load
  323.  
  324.     地名表示=1
  325.     速度=2
  326.     Ｄ速度=2
  327.     あいさつ=1
  328.     //ときめき=5
  329.  
  330.     !o(1)使用キャラクターは？pc
  331.     %selectlist={男,女}
  332.     選択=%select
  333.     &switch(選択){
  334.         &case(1):
  335.             主人公=1
  336.             %partydef(0)  = {$9,2,$40,0,99,1,フルーレ,レザーアーマー,0,0}
  337.             &break
  338.         &default:
  339.             主人公=0
  340.             %partydef(0)  = {$8,2,$20,0,99,0,グラディウス,レザーアーマー,0,0}
  341.     }
  342.     %partydef(1)  = {$C,2,$A0,1,99,-1,-1,-1,-1,-1}
  343.     %partydef(2)  = {$C,2,$A0,1,99,-1,-1,-1,-1,-1}
  344.     
  345.     !o(1)モンスターの出現をＯＦＦにしますか？pc
  346.     &if(%inkeyn==0){もん=1}
  347.     
  348.     !o(1)どこからはじめますか？:キャンセルで最初からpc
  349.     %selectlist={オープニング,フィールド,洞窟１,洞窟２,森,洞窟３,エンディング}
  350.     選択=%select
  351.     &switch(選択){
  352.         &case(0):
  353.             &goto OPEN1
  354.         &case(1):
  355.             &goto FIELD
  356.         &case(2):
  357.             &goto DUN1
  358.         &case(3):
  359.             &goto TAKI
  360.         &case(4):
  361.             &goto MORI
  362.         &case(5):
  363.             &goto ISEKI
  364.         &case(6):
  365.             &goto END
  366.         &default:
  367.     }    
  368.     &goto FIELD
  369. //▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
  370.  
  371.     [OPEN1]                    //オープニング
  372.  
  373. //    ■■■■■　■■■■■　■■■■■　■　　　■　　■
  374. //    ■　　　■　■　　　■　■　　　　　■■　　■　■■
  375. //    ■　　　■　■■■■■　■■■■■　■　■　■　　■
  376. //    ■　　　■　■　　　　　■　　　　　■　　■■　　■
  377. //    ■■■■■　■　　　　　■■■■■　■　　　■　■■■
  378.  
  379. //▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
  380.     &bgm 34
  381.     &map MAP\OPEN1.MAP
  382.     &mapsp PTN\MURA.SP
  383.     &mappal PTN\MURA.PAL
  384.     &partyset 10
  385.     %partypoint={15,18,8}
  386.     &partyspeed 1
  387.     %bcirclesize=80
  388.     &blackcircle 1
  389.  
  390.     &if(主人公==0){
  391.         %mandef(1)={$c,0,$a0,8,0}    //カリス
  392.         %mandef(2)={$8,0,$c0,8,0}    //主人公男
  393.     }&else{
  394.         %mandef(1)={$9,0,$80,2,0}    //リアナ
  395.         %mandef(2)={$9,0,$e0,8,0}    //主人公女
  396.     }
  397.     %manpoint(2)={100,100}
  398.     &on
  399.     &partymove -8
  400.     %manpoint(2)={15,28}
  401.     &on
  402.     &manmove 2,8,8,8,8,8,8,8,8,8,8,8,8,-8,-4
  403.     &if(主人公==0){
  404.         !o(1)j(2)|(0);j(0)お呼びでしょうか、カリス様p
  405.         &manmove 1,-2
  406.         !o(1)j(2)カリス;j(0)来たか|(0)p;君を呼んだのは他でもない;
  407.         !実は最後の聖剣のありかがわかったp
  408.         &manmove 2,-6
  409.         !o(1)j(2)|(0);j(0)ついに見つかったんですかっ！p
  410.         !o(1)j(2)カリス;j(0)所在らしきはわかったが、まだ入手したわけではないp;
  411.         !そこで、君に取りにいってもらいたいんだp
  412.         !o(1)j(2)|(0);j(0)オレにですか;お易いご用ですpp
  413.         !o(1)j(2)カリス;j(0)だが、今回の任務は君１人でいってもらうことになるんだがp
  414.         !o(1)j(2)|(0);j(0)心配無用です;p
  415.         !それに今のこちらの状況を考えれば大きな行動にはでられませんからねp
  416.         !o(1)j(2)カリス;j(0)そうだ、敵に５聖剣のうち３本までが奪われている以上;
  417.         !この１本を逃すわけにはいかないp;心して掛かってくれp
  418.         !o(1)j(2)|(0);j(0)まかせて下さい;それで場所はp
  419.         !o(1)j(2)カリス;j(0)エスバルン地方だp;
  420.         !o(1)j(2)|(0);j(0)エスバルン;それじゃあ、早速旅の準備に取り掛かります;p
  421.         !o(1)j(2)カリス;j(0)頼んだpc
  422.         &manmove 2,-8,2,2,2,2,2,2,2,2,2
  423.         &wait 20
  424.         &manmove 1,-8
  425.         !o(1)j(2)カリス;j(0)（これ以上、奴らに先を越されるわけにはいかない;
  426.         !必ず、聖剣を持ち帰ってきてくれ）pc
  427.     }&else{
  428.         !o(1)j(2)|(0);j(0)お待たせしました、リアナ様p
  429.         !o(1)j(2)リアナ;j(0)突然呼び出してごめんなさい|(0)p;
  430.         !実はあなたにお願いしたいことがあるのp
  431.         &manmove 2,-6
  432.         !o(1)j(2)|(0);j(0)何でしょうかp
  433.         !o(1)j(2)リアナ;j(0)昨夜、私の占いで最後の聖剣の眠る地がわかりましたp;
  434.         !o(1)j(2)|(0);j(0)本当ですかp
  435.         !o(1)j(2)リアナ;j(0)ええ、そこであなたにその聖剣を取りに行ってもらいたいのp;
  436.         !本当は他の者にお願いしたいところなんだけど、今の状況ではあなたが１番有利に
  437.         !動けると思うのp
  438.         !o(1)j(2)|(0);j(0)そうですね;あたしはまだ敵に顔を知られてませんからp
  439.         !o(1)j(2)リアナ;j(0)女の子のあなたにお願いするのはすまないのだけどもp;
  440.         !敵に５聖剣のうち３本がわたっている以上、最後の聖剣だけは何としても手に入れなくてはp;
  441.         !o(1)j(2)|(0);j(0)任せて下さい;必ず聖剣を持って帰りますp;それで、場所はp
  442.         !o(1)j(2)リアナ;j(0)最後の聖剣はエスバルンの地にp
  443.         !o(1)j(2)|(0);j(0)エスバルンですね;じゃあ、早速支度をして出掛けてまいりますp
  444.         &manmove 2,-8
  445.         !o(1)j(2)リアナ;j(0)気をつけてpc
  446.         &manmove 2,2,2,2,2,2,2,2,2,2
  447.         &wait 20
  448.         &manmove 1,-8
  449.         !o(1)j(2)リアナ;j(0)神よ彼女をお守り下さい;そして、私たちに御加護をw・w・w・pc
  450.     }
  451.     &contrast 0
  452.     &bgm -1
  453.     &wait 200
  454.     &goto OPEN2
  455. //▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
  456.  
  457.     [OPEN2]                    //オープニング
  458.  
  459. //    ■■■■■　■■■■■　■■■■■　■　　　■　　■■■
  460. //    ■　　　■　■　　　■　■　　　　　■■　　■　■　　　■
  461. //    ■　　　■　■■■■■　■■■■■　■　■　■　　　■■
  462. //    ■　　　■　■　　　　　■　　　　　■　　■■　　■
  463. //    ■■■■■　■　　　　　■■■■■　■　　　■　■■■■■
  464.  
  465. //▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
  466.     &bgm 26
  467.     //&bgm 30
  468.     &map MAP\OPEN2.MAP
  469.     &mapsp PTN\OPEN2.SP
  470.     &mappal PTN\OPEN2.PAL
  471.     &partyset 10
  472.     %partypoint={31,22,4}
  473.     &partyspeed 1
  474.  
  475.     %mandef(1)={$7,0,$20,2,-1}        //幻獣ママ
  476.     %mandef(2)={$7,0,$20,4,-1}        //幻獣ママ
  477.     %mandef(3)={$7,0,$20,6,-1}        //幻獣ママ
  478.     %mandef(4)={$7,0,$20,8,-1}        //幻獣ママ
  479.     %mandef(5)={$7,0,$40,2,-1}        //幻獣ママ
  480.     %mandef(6)={$7,0,$40,4,-1}        //幻獣ママ
  481.     %mandef(7)={$7,0,$40,6,-1}        //幻獣ママ
  482.     %mandef(8)={$7,0,$40,8,-1}        //幻獣ママ
  483.     %mandef(9)={$7,0,$60,2,-1}        //幻獣ママ
  484.     %mandef(10)={$7,0,$60,4,-1}        //幻獣ママ
  485.     %mandef(11)={$c,1,$00,2,-1}        //幻獣卵
  486.     %mandef(12)={$c,1,$00,2,-1}        //幻獣卵
  487.     %mandef(13)={$f,5,$e0,2,0}        //びっくり
  488.     %manpoint(13)={100,100}
  489.     &on
  490.     &wait 200
  491.     &partyset 0
  492.     &on
  493.     &partymove 4,4,4,4,4,4,4,4
  494. //        %manpoint(13)={23,20}
  495. //        &on
  496.     &if(主人公==0){
  497.         !o(0)j(2)|(0);j(0)んっ！ww;な、なんだコイツは！？;見たことも無いモンスターだなあw・w・w・p;
  498. //            %manpoint(13)={100,100}
  499. //            &on
  500.         !まあいい、とにかく先を急ごうpc
  501.         &partymove 4,4,4,2,2,2,2,4,4,4,4,4,4
  502.         %mandef(11)={$c,1,$00,2,0}        //幻獣卵
  503.         %mandef(12)={$c,1,$00,2,0}        //幻獣卵
  504.         &on
  505.         &partymove -8
  506. //            %mandef(13)={$f,5,$e0,4,0}        //？
  507. //            %manpoint(13)={14,24}
  508. //            &on
  509. //            &wait 50
  510.         !o(0)j(2)|(0);j(0)んっ、たまご？pc
  511. //            %manpoint(13)={100,100}
  512. //            &on
  513. //        &wait 50
  514.         &manmove 11,-2,-2,-4,-4,-6,-6,-8,-8
  515.         %mandef(11)={$c,2,$A0,2,0}        //幻獣
  516.         &wait 10
  517.         &on
  518.         &manmove 11,-2
  519. //            %manpoint(13)={14,24}
  520. //            &on
  521. //            &wait 50
  522.         !o(0)j(2)|(0);j(0)へっ？pc
  523. //            %manpoint(13)={100,100}
  524. //            &on
  525.         &manmove 12,-2,-2,-4,-4,-6,-6,-8,-8
  526.         %mandef(12)={$c,2,$A0,2,0}        //幻獣
  527.         &wait 10
  528.         &on
  529.         &manmove 12,-2
  530.         &on
  531.     //        %manpoint(13)={14,24}
  532.     //        &on
  533.     //        &wait 50
  534.         !o(0)j(2)|(0);j(0)な、なにいーっ！？pc
  535.     //        %manpoint(13)={100,100}
  536.     //        &on
  537.         %mandef(11)={$c,2,$A0,2,1}        //幻獣卵
  538.         &on
  539.         &manmove 11,-2,-4,-8,-6,-2
  540.         %mandef(11)={$c,2,$A0,2,0}        //幻獣卵
  541.         &on
  542.         !o(0)j(2)？Ａ;j(0)ウピィーpc
  543.     //        %manpoint(13)={14,24}
  544.     //        &on
  545.     //        &wait 50
  546.         !o(0)j(2)|(0);j(0)はっ？pc
  547.     //        %manpoint(13)={100,100}
  548.     //        &on
  549.         %mandef(12)={$c,2,$A0,2,1}        //幻獣卵
  550.         &on
  551.         &manmove 12,-2,-4,-8,-6,-2
  552.         %mandef(12)={$c,2,$A0,2,0}        //幻獣卵
  553.         &on
  554.         !o(0)j(2)？Ｂ;j(0)ウピィーpc
  555.     //        %manpoint(13)={14,24}
  556.     //        &on
  557.     //        &wait 50
  558.         !o(0)j(2)|(0);j(0)はへっ？pc
  559.     //        %manpoint(13)={100,100}
  560.     //        &on
  561.         &manmove 11,2
  562.         &manmove 12,2
  563.     //        %manpoint(13)={14,24}
  564.     //        &on
  565.     //        &wait 50
  566.         !o(0)j(2)|(0);j(0)な、なんだぁ？;やる気かあpc
  567.     //        %manpoint(13)={100,100}
  568.     //        &on
  569.         &manmove 11,2,6
  570.         %manpoint(11)={100,100}
  571.         &partyin 1
  572.         &on
  573.         &manmove 12,2,4
  574.         %manpoint(12)={100,100}
  575.         &partyin 2
  576.         &on
  577.         &partymove -6
  578.         &wait 10
  579.     //        %mandef(13)={$f,5,$e0,2,0}        //！
  580.     //        %manpoint(13)={14,24}
  581.     //        &on
  582.     //        &wait 50
  583.         !o(0)j(2)|(0);j(0)お、おいっ！;な、なんなんだよっ！pc
  584.     //        %manpoint(13)={100,100}
  585.     //        &on
  586.         &partymove 4,4,2,2,2,6,6,6,6,6,8,8,8,8,4,4,-6
  587.     //        %manpoint(13)={15,23}
  588.     //        &on
  589.     //        &wait 50
  590.         !o(0)j(2)|(0);j(0)はっ！pc
  591.     //        %manpoint(13)={100,100}
  592.     //        &on
  593.         &partyspeed 2
  594.         &partymove 4,4,4,4,4,2,2,2,2,6,6,6,6,6,6,6,6,6,8,8,8,8,8,4,4,4,-6
  595.     //        %mandef(13)={$f,5,$e0,6,0}        //怒り
  596.     //        %manpoint(13)={16,22}
  597.     //        &on
  598.     //        &wait 50
  599.         !o(0)j(2)|(0);j(0)はあ、はあ;おいっ、付いてくるんじゃねえ！pc
  600.     //        %manpoint(13)={100,100}
  601.     //        &on
  602.         !o(0)j(2)？Ａ;j(0)ウピィーpc
  603.         !o(0)j(2)？Ｂ;j(0)ウピィーpc
  604.     //        %mandef(13)={$e,5,$c0,4,0}        //たらーっ
  605.     //        %manpoint(13)={16,22}
  606.     //        &on
  607.     //        &wait 50
  608.         !o(0)j(2)|(0);j(0)が、がーんp;も、もういいオレは急ぐんだ;これ以上付いてくんなよpc
  609.     //        %manpoint(13)={100,100}
  610.     //        &on
  611.         &partyspeed 1
  612.         &partymove 4,4,4,4,4,4,-6
  613.         &partyspeed 2
  614.         &partymove 4,4,4,4,4,4,4,4,4,4,4,4
  615.     }&else{
  616.         !o(0)j(2)|(0);j(0)何かしら、あれっ？;見たこと無いモンスターねえw・w・w・p;
  617.         !あっ、こんなことしてられないわ;急がなきゃpc
  618.         &partymove 4,4,4,2,2,2,2,4,4,4,4,4,4
  619.         %mandef(11)={$c,1,$00,2,0}        //幻獣卵
  620.         %mandef(12)={$c,1,$00,2,0}        //幻獣卵
  621.         &on
  622.         &partymove -4,-8
  623.         &wait 20
  624.         !o(0)j(2)|(0);j(0)ん、たまごぉ？pc
  625.         &wait 50
  626.         &manmove 11,-2,-2,-4,-4,-6,-6,-8,-8
  627.         %mandef(11)={$c,2,$A0,2,0}        //幻獣
  628.         &wait 10
  629.         &on
  630.         &manmove 11,-2
  631.         !o(0)j(2)|(0);j(0)えっ？pc
  632.         &manmove 12,-2,-2,-4,-4,-6,-6,-8,-8
  633.         %mandef(12)={$c,2,$A0,2,0}        //幻獣
  634.         &wait 10
  635.         &on
  636.         &manmove 12,-2
  637.         !o(0)j(2)|(0);j(0)か、かわいーっ！pc
  638.         %mandef(11)={$c,2,$A0,2,1}        //幻獣卵
  639.         &on
  640.         &manmove 11,-2,-4,-8,-6,-2
  641.         %mandef(11)={$c,2,$A0,2,0}        //幻獣卵
  642.         &on
  643.         !o(0)j(2)？Ａ;j(0)ウピィー（産声）pc
  644.         !o(0)j(2)|(0);j(0)うんpc
  645.         %mandef(12)={$c,2,$A0,2,1}        //幻獣卵
  646.         &on
  647.         &manmove 12,-2,-4,-8,-6,-2
  648.         %mandef(12)={$c,2,$A0,2,0}        //幻獣卵
  649.         &on
  650.         !o(0)j(2)？Ｂ;j(0)ウピィー（産声）pc
  651.         !o(0)j(2)|(0);j(0)へえpc
  652.         &manmove 11,2
  653.         &manmove 12,2
  654.         !o(0)j(2)|(0);j(0)きゃっ、おいでおいでpc
  655.         &manmove 11,2,6
  656.         %manpoint(11)={100,100}
  657.         &partyin 1
  658.         &on
  659.         &manmove 12,2,4
  660.         %manpoint(12)={100,100}
  661.         &partyin 2
  662.         &on
  663.         &partymove -6,-6,-6
  664.         !o(0)j(2)|(0);j(0)わっ、人懐っこいのねえpc
  665.         &partymove 4,4,2,2,2,6,6,6,6,6,8,8,8,8,4,4,-6
  666.         !o(0)j(2)|(0);j(0)わーいpc
  667.         &partyspeed 2
  668.         &partymove 4,4,4,4,4,4,4,2,2,2,2,6,6,6,6,6,6,6,6,6,8,8,8,8,8,4,4,4,-6,-6
  669.         !o(0)j(2)|(0);j(0)アハ、付いてきてる付いてきてるpc
  670.         !o(0)j(2)？Ａ＆？Ｂ;j(0)w・w・ウピw・w・ピィー（疲れ）pc
  671.         !o(0)j(2)|(0);j(0)あっ、疲れちゃったかな;ごめんねpc
  672.         &partyspeed 1
  673.         &partymove -8,-8,-8
  674.         &wait 50
  675.         &partymove -6,-6,-6
  676.         !o(0)j(2)|(0);j(0)かわいそうに、あなたたちのお母さんね;p
  677.         !うーん、どうしようかなあ;いくらモンスターでも生まれたばかりの赤ちゃんをほおっておけないしp;
  678.         !あなたたちあたしと一緒に来る？pc
  679.         !o(0)j(2)？Ａ＆？Ｂ;j(0)ウピィー（喜び）pc
  680.         !o(0)j(2)|(0);j(0)アハ、そう;じゃあ一緒に行こうか;p
  681.         !あっ、いいのかな;w・w・w・まあいいよねpc
  682.         &partyspeed 1
  683.         &partymove 4,4,4,4,4,-6,-6
  684.         !o(0)j(2)|(0);j(0)あっ、そうだ;この子たちに名前つけなくちゃp
  685.         !o(1)１匹目の名前を入力してくださいpc
  686.         &inputpartyname 1
  687.         !o(1)２匹目の名前を入力してくださいpc
  688.         &inputpartyname 2
  689.         !o(0)j(2)|(0);j(0)うん、いい名前p;よろしくねっ;j(2)|(1)j(0)、j(2)|(2)j(0)pc
  690.         !o(0)j(2)|(1)＆|(2);j(0)ウピィー（喜び）pc
  691.         &partymove 4,4,4,4,4,4,4,4,4,4,4
  692.     }
  693.     
  694.     &contrast 0
  695.     &wait 80
  696.     &goto OPEN3
  697. //▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
  698.  
  699.     [OPEN3]                    //オープニング
  700.  
  701. //    ■■■■■　■■■■■　■■■■■　■　　　■　■■■■■
  702. //    ■　　　■　■　　　■　■　　　　　■■　　■　■　　　■
  703. //    ■　　　■　■■■■■　■■■■■　■　■　■　　　■■
  704. //    ■　　　■　■　　　　　■　　　　　■　　■■　■　　　■
  705. //    ■■■■■　■　　　　　■■■■■　■　　　■　■■■■■
  706.  
  707. //▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
  708.     &map MAP\OPEN3.MAP
  709.     &mapsp PTN\OPEN2.SP
  710.     &mappal PTN\OPEN2.PAL
  711.     &partyset 0
  712.     %partypoint={30,22,4}
  713.     &partyspeed 1
  714.     &partyset 0,1,2
  715.  
  716.     %mandef(1)={$9,1,$20,8,0}        //博士
  717.  
  718.     &on
  719.     &if(主人公==0){
  720.         !o(0)j(2)|(0);j(0)ふー、もうそろそろだなpc
  721.         &partymove 4,4,4,4,4,4,4,4,4,4,-8
  722.         &wait 20
  723.         &partymove 4,4,4,4,4,4,4
  724.         &manmove 1,-2,-4
  725.         &wait 10
  726.         !o(0)j(2)モンスター博士;j(0)お、おいっ、ちょっと待ってくれ！pc
  727.         &partymove -6
  728.         &manmove 1,-4,4,2,2,2,-2,-4
  729.         !o(0)j(2)|(0);j(0)ん、何だいじいさんp
  730.         !o(0)j(2)モンスター博士;j(0)お、お前さんの連れている２匹のモンスター、いったい
  731.         !どうしたんじゃpc
  732.         &manmove 1,-2,2,4,4
  733.         !o(0)j(2)|(0);j(0)ああ、こいつらかw・w・w・p
  734.         !o(0)j(0)　|(0)は先程の出来事を話したp
  735.         !o(0)j(2)モンスター博士;j(0)なんとっ！;そいつはワシが探してた幻獣じゃっ！p;
  736.         !なんと、なんと死んでしまったとはw・w・w・p;
  737.         !o(0)j(2)|(0);j(0)たぶん、他のモンスターかなんかにやられたんだろうなp
  738.         !o(0)j(2)モンスター博士;j(0)長年、追い求めてきたのにw・w・w・p
  739.         !しかし、子供かp;いいかいあんた、そいつは幻獣といって普通のモンスターとは違うp;
  740.         !そいつらは他のモンスターの肉を食らって、そのモンスターの種類によって様々な成長
  741.         !をしていくんじゃp
  742.         !o(0)j(2)|(0);j(0)へえ、おもしれなあp
  743.         !o(0)j(2)モンスター博士;j(0)w・w・w・わしはモンスターを研究していてなあ;p
  744.         !幻獣を初めてみてから、ずっと生態を調べてたんじゃ;p
  745.         !できれば、そのモンスターをわしに譲って欲しいところなんじゃが;p
  746.         !o(0)j(2)|(0);j(0)ホントか、オレは全然かまわないぜ;こいつら勝手についてきて、
  747.         !仕事の邪魔になるからなp
  748.         !o(0)j(2)モンスター博士;j(0)w・w・w・しかし、あんたのことを親だと思ってるらしい;
  749.         !引き離してはかわいそうだp;あんたさえよければ、エイザルの町外れにあるわしの家に
  750.         !たまにその子らを連れてきてくれんかのうp
  751.         !o(0)j(2)|(0);j(0)おい、オレにこいつらの世話をしろっていうのかp
  752.         !o(0)j(2)？Ａ＆？Ｂ;j(0)ウピーッ、ウピーッ（怒り）p
  753.         !o(0)j(2)|(0);j(0)がーっ、うるせーな;まったく、とんでもねえよ;p
  754.         !わかった、めんどーみてやるから;そのかわりちっとはオレの仕事の役に立てよp;
  755.         !ま、しばらくいるかもしんないからじいさんとこにも顔出すよp
  756.         !o(0)j(2)モンスター博士;j(0)おお、たのんだよp;これからわしは母親の死体の調査と、
  757.         !他に幻獣がいないか探してみるよ;pそれじゃあ、またのうpc
  758.         &manmove 1,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
  759.         !o(0)j(2)|(0);j(0)さて、めんどーになってきたなあ;早いとこ聖剣を探さなきゃなんないのにp;
  760.         !まあ、この辺にもけっこうモンスターがいるみたいだからなp;こいつらを使えば戦闘も楽になるか;
  761.         !そうだ、名前とか付けとくかなp
  762.         !o(1)１匹目の幻獣の名前を入力してくださいpc
  763.         &inputpartyname 1
  764.         !o(1)２匹目の幻獣の名前を入力してくださいpc
  765.         &inputpartyname 2
  766.         !o(0)j(2)|(0);j(0)よしっ、お前らはj(2)|(1)j(0)とj(2)|(2)j(0)だp
  767.         !o(0)j(2)|(1)＆|(2);j(0)ウピー、ウピー（喜び）p
  768.         !o(0)j(2)|(0);j(0)ハハッw・w・、さてと行くかpc
  769.         &partymove -4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
  770.     }&else{
  771.         !o(0)j(2)|(0);j(0)よしっ、もうちょっとでエスバルンねpc
  772.         &partymove 4,4,4,4,4,4,4,4,4,4,-8
  773.         &wait 20
  774.         !o(0)j(2)|(0);j(0)ん？;おじいさん何してるの？pc
  775.         &manmove 1,-2,-2
  776.         !o(0)j(2)モンスター博士;j(0)ほお、旅の方かいp;わしはモンスターを研究しててのう;
  777.         !幻獣というモンスターのてがかりを探しとるんじゃp;ほお？pc
  778.         &manmove 1,2,2,2,6,6,6,-2,-2
  779.         !o(0)j(2)モンスター博士;j(0)見たことないモンスターじゃのう;いったいどうなさったんじゃp
  780.         !o(0)j(2)|(0);j(0)えっ？;この子たち？p
  781.         !o(0)j(0)　|(0)は先程の出来事を話したp
  782.         !o(0)j(2)モンスター博士;j(0)なんとっ！;そいつはワシが探してた幻獣じゃっ！p;
  783.         !なんと、なんと死んでしまったとはw・w・w・p
  784.         !o(0)j(2)|(0);j(0)たぶん、他のモンスターかなんかにやられたんだと思うわp;
  785.         !それで最後の力でこの子たちを産んだんじゃないかしらp
  786.         !o(0)j(2)モンスター博士;j(0)長年、追い求めてきたのにw・w・w・p;
  787.         !しかし、子供かp;いいかいあんた、そいつは幻獣といって普通のモンスターとは違うp;
  788.         !そいつらは他のモンスターの肉を食らって、そのモンスターの種類によって様々な成長
  789.         !をしていくんじゃp
  790.         !o(0)j(2)|(0);j(0)この子たちが？;へえ、すごいわねえp
  791.         !o(0)j(2)モンスター博士;j(0)w・w・w・わしはモンスターを研究していてなあ;p
  792.         !幻獣を初めてみてから、ずっと生態を調べてたんじゃ;p
  793.         !できれば、そのモンスターをわしに譲って欲しいところなんじゃがw・w・w・p;
  794.         !しかし、あんたのことを親だと思ってるらしい;引き離してはかわいそうだp;
  795.         !あんたさえよければ、エイザルの町外れにあるわしの家にたまにその子らを
  796.         !連れてきてくれんかのうp
  797.         !o(0)j(2)|(0);j(0)うーん、そんなに長くいるつもりはないけど構わないわよp
  798.         !o(0)j(2)モンスター博士;j(0)おお、ありがとうp;これからわしは母親の死体の調査と、
  799.         !他に幻獣がいないか探してみるよ;pそれじゃあ、またのうpc
  800.         &manmove 1,6,6,6,6,6,6,6,6,6,6
  801.         !o(0)j(2)|(0);j(0)さてと、聖剣探しにこの子たちのめんどうとちょっとたいへんに
  802.         !なってきたわね;でも、がんばんなきゃp
  803.         !o(0)j(2)|(1)＆|(2);j(0)ウピー、ウピー（応援）p
  804.         !o(0)j(2)|(0);j(0)アハ、あんたたちがんばれっていってるの？pc
  805.         &partymove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4
  806.     }
  807.     &bgm -1
  808.     &contrast 0
  809.     &wait 100
  810.     &goto SAISHO
  811. //▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
  812.  
  813.     [SAISHO]                //初めてのげんずぅ
  814.  
  815. //    ■■■■■　　　■　　　■　■■■■■　■　　　■　■■■■■
  816. //    ■　　　　　　■　■　　■　■　　　　　■　　　■　■　　　■
  817. //    ■■■■■　■　　　■　■　■■■■■　■■■■■　■　　　■
  818. //    　　　　■　■■■■■　■　　　　　■　■　　　■　■　　　■
  819. //    ■■■■■　■　　　■　■　■■■■■　■　　　■　■■■■■
  820.  
  821. //▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
  822.     &bgm 30
  823.     &partyset 10
  824.     &map MAP\KURO.MAP
  825.     &mapsp PTN\FIELD.SP
  826.     &mappal PTN\OPEN.PAL
  827.     %partypoint={15,15,2}
  828.  
  829.     %mandef(1)={$c,1,$80,2,0}    //うさぎ
  830.     %manpoint(1)={15,15}
  831.     &on
  832.     &manmove 1,-4,-2,-4,-2
  833.     !o(1)j(2)うさぎ;j(0)ほいっ;僕はこのゲームの説明をするうさぎなのp;
  834.     !説明を聞いてくれるかい？p
  835.     &if(%inkeyn==0){
  836.         &manmove 1,-4,-2
  837.         !;ほいっ、ＯＫ;それじゃあ説明なのp;
  838.         &manmove 1,-4,-2
  839.         !o(1)まず、ゲームの進め方についてなのp;
  840.         !はじめのフィールドマップでは町と村にしか移動できないの;
  841.         !他のところに移動するには、町と村でよく話しを聞かないとダメなのpc
  842.         &manmove 1,-4,-2
  843.         !o(1)ゲームのセーブについてなのp;
  844.         !セーブとロードは町と村にいる鶏に話し掛けるとできるのp;
  845.         !洞窟なんかにもセーブと回復をしてくれる鶏がいるのp;
  846.         !ゲームの終了はj(2)コマンドその他の終わるj(0)でなのp
  847.         &manmove 1,-4,-2
  848.         !o(1)このゲームの売り、幻獣を育てるモードについてなのp;
  849.         !モンスターとの戦闘の後にj(2)食事モードj(0)に入るの;
  850.         !そこでモンスターのお肉を幻獣に食べさせるのp;
  851.         !でも、食事ができるのは１回に１匹だけなのp;
  852.         !いっぱい食べさせると幻獣は戦闘でのレベルアップと別に成長していくの;p
  853.         !かっこうも変わってビックリなのp;
  854.         !町に住んでるモンスター博士が色々とサポートしてくれるのp
  855.         &manmove 1,-4,-2
  856.         !o(1)ほいっ、こんなとこなの;それじゃあねpc
  857.     }&else{
  858.         !o(1)ほいっ、ＯＫ;それじゃあねpc
  859.     }
  860.     &if(Ｏ飛び==1){
  861.         !o(1)j(2)うさぎ;j(0)あっ、ちょっと待ってなの;
  862.         !幻獣の名前を入力して欲しいのp
  863.         !;１匹目の幻獣の名前を入力してなのp
  864.         &inputpartyname 1
  865.         !;２匹目の幻獣の名前を入力してなのp;
  866.         &inputpartyname 2
  867.         !o(1)ほいっ、今度こそ;じゃあねなのpc
  868.     }
  869.     &manmove 1,-4,-2,-4,-2
  870.     &goto FIELD
  871. //▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
  872.  
  873.     [FIELD]                    //フィールド画面
  874.  
  875. //    ■■■■■　■　■■■■■　■　　　　　■■■■
  876. //    ■　　　　　■　■　　　　　■　　　　　■　　　■
  877. //    ■■■■■　■　■■■■■　■　　　　　■　　　■
  878. //    ■　　　　　■　■　　　　　■　　　　　■　　　■
  879. //    ■　　　　　■　■■■■■　■■■■■　■■■■
  880.  
  881. //▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
  882.     
  883.     &bgm 22
  884.     &bgm 22
  885.     &map MAP\FIELD.MAP
  886.     &mapsp PTN\FIELD.SP
  887.     &mappal PTN\FIELD.PAL
  888.     %partypoint={28,26,2}
  889.     &partyspeed 速度
  890.     &partyset 0
  891.     
  892.     &commenu 0
  893.     &if(主人公==0){
  894.         %partydef(0)  = {$8,2,$60,-1,-1,-1,-1,-1,-1,-1}
  895.     }&else{
  896.         %partydef(0)  = {$9,2,$80,-1,-1,-1,-1,-1,-1,-1}
  897.     }
  898.     &on
  899.  
  900.     &if(地名表示==0){
  901.         &monsprint 44,100,Ｍ１,1
  902.         &monsprint 128,100,Ｍ２,1
  903.         &wait 100
  904.         &monsprint 44,100,消し
  905.         &monsprint 128,100,消し
  906.     }
  907.  
  908. #@0    &if(%direc<0){&goto MURA}
  909. #@1    &if(%direc<0){
  910.         &partyspeed 2
  911.         &goto MATI
  912.     }
  913. #@2    &if(%direc<0){
  914.         &if(言い伝え>=2){&goto DUN1}
  915.     }
  916. #@3    &if(%direc<0){
  917.         &if(遺跡移動==1){&goto ISEKI}
  918.     }
  919. #@4    &if(%direc<0){
  920.         &if(病気>0){&goto MORI}
  921.     }
  922. #@5    &if(%direc<0){
  923.         &if(滝移動==1){&goto TAKI}
  924.     }
  925.  
  926. //▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
  927.  
  928.     [MURA]                    //村
  929.  
  930. //    ■　　　■　■　　　■　■■■■　　　　■
  931. //    ■■　■■　■　　　■　■　　　■　　■　■
  932. //    ■　■　■　■　　　■　■■■■　　■　　　■
  933. //    ■　　　■　■　　　■　■　　　■　■■■■■
  934. //    ■　　　■　　■■■　　■　　　■　■　　　■
  935.  
  936. //▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
  937.     &bgm 16
  938.     &bgm 16
  939.     &sppsp PTN\MURA.SPP
  940.     &map MAP\MURA.MAP
  941.     &mapsp PTN\MURA.SP
  942.     &mappal PTN\MURA.PAL
  943.     %partypoint={37,60,8}
  944.     &partyspeed 2
  945.     &commenu 1
  946.     &if(ナカラ==1){
  947.         &partyset 0,1,2,3
  948.         %mandef(19)={$a,1,$E0,2,1}        //ウキョ
  949.     }&else{
  950.         &partyset 0,1,2
  951.     }
  952. //マンイベント定義(PAL,BANK,SP,方向,動き(-1:静止,0:足踏み,1以上:乱移動 大きいほど遅い))
  953.  
  954.     %mandef(1)={$a,0,$60,6,1}        //男の子
  955.     %mandef(18)={$b,0,$80,8,0}        //女の子
  956.     %mandef(2)={$a,0,$A0,2,2}        //若者男
  957.     %mandef(3)={$a,0,$C0,2,2}        //若者女
  958.     %mandef(4)={$a,1,$00,2,0}        //老人男
  959.     %mandef(5)={$a,1,$40,2,0}        //セーブ＆ロード鶏
  960.     %mandef(6)={$a,1,$40,2,1}        //お宝鶏
  961.     %mandef(7)={$b,1,$60,2,2}        //絶食羊
  962.     %mandef(8)={$d,1,$60,2,2}        //スピード羊
  963.     %mandef(9)={$e,1,$60,2,2}        //メッセージ羊
  964.     %mandef(10)={$0,2,$00,2,-1}        //看板
  965.     %mandef(11)={$a,1,$20,2,0}        //宿屋
  966.     &if(病気==2){
  967.     %mandef(12)={$a,1,$A0,2,-1}        //寝てる老人
  968.     }&else{
  969.     %mandef(12)={$a,1,$A0,2,0}        //寝てる老人
  970.     }
  971.     %mandef(13)={$a,0,$C0,6,0}        //看病する孫娘
  972.     %mandef(14)={$a,0,$E0,2,2}        //奥さん
  973.     %mandef(15)={$a,1,$C0,2,0}        //村長
  974.     %mandef(16)={$a,0,$60,2,0}        //寝坊子供
  975.     %mandef(17)={$a,0,$80,2,1}        //元気子供
  976.     %mandef(25)={$3,0,$40,4,-1}        //椅子
  977.     %mandef(26)={$4,0,$40,6,-1}        //椅子
  978.     %mandef(27)={$3,0,$20,4,-1}        //テーブル
  979.     %mandef(28)={$3,0,$20,2,-1}        //テーブル
  980.     %mandef(30)={$3,0,$20,6,-1}        //テーブル
  981.     %mandef(31)={$3,0,$20,8,-1}        //テーブル
  982.     %mandef(32)={$3,0,$40,6,-1}        //椅子
  983.     %mandef(33)={$3,0,$40,4,-1}        //椅子
  984.     %mandef(35)={$3,0,$40,8,-1}        //椅子
  985.     %manpoint(35)={43,114}
  986.     %mandef(36)={$b,1,$80,6,2}        //カエル
  987.     %mandef(37)={$b,1,$80,8,3}        //カエル
  988.     &if(宝04==0){                //宝箱
  989.         %mandef(38)={$3,0,$00,2,-1}
  990.     }&else{
  991.         %mandef(38)={$3,0,$00,4,-1}
  992.     }
  993.  
  994.     &jsr 巨大化
  995.     &if(地名表示==0){
  996.         &if(村の中==0){
  997.         &monsprint 44,100,Ｍ３,1
  998.         &monsprint 128,100,Ｍ４,1
  999.         &wait 100
  1000.         &monsprint 0,10,消し
  1001.         &monsprint 128,10,消し
  1002.         }
  1003.     }
  1004.     村の中=1
  1005.     &if(最初==0){
  1006.         最初=1
  1007.         &if(主人公==0){
  1008.             &monsprint 24,80,少年
  1009.             !o(1)j(2)|(0);j(0)この地に聖剣があるのだろうけど;
  1010.             !正確な場所はわからないな;
  1011.             !とりあえず聖剣の情報を集めるとするかpc
  1012.         }&else{
  1013.             &monsprint 24,80,少女
  1014.             !o(1)j(2)|(0);j(0)この地に聖剣があることは確かだと思うから;
  1015.             !正確な場所を見つけるために情報を集めないとねpc
  1016.         }
  1017.     }
  1018.     &on
  1019. //イベント
  1020.  
  1021. //フィールドへ
  1022. #@0    &if(%direc<0){&goto2 FIELD,10,14,2}
  1023. //村長宅
  1024. #@1    &if(%direc<0){
  1025.         &if(%py<64){
  1026.             &move 46,122,8
  1027.             &partyspeed 速度
  1028.         }&else{
  1029.             &move 52,17,2
  1030.             &partyspeed 2
  1031.         }
  1032.     }
  1033. //民家
  1034. #@2    &if(%direc<0){
  1035.         &if(%py<64){
  1036.             &move 12,85,8
  1037.             &partyspeed 速度
  1038.         }&else{
  1039.             &move 16,27,2
  1040.             &partyspeed 2
  1041.         }
  1042.     }
  1043. //宿屋
  1044. #@3    &if(%direc<0){
  1045.         &if(%py<64){
  1046.             &move 46,85,8
  1047.             &partyspeed 速度
  1048.         }&else{
  1049.             &move 54,37,2
  1050.             &partyspeed 2
  1051.         }
  1052.     }
  1053. //村長宅階段
  1054. #@4    &if(%direc<0){
  1055.         &if(%py<130){
  1056.             &move 55,144,8
  1057.         }&else{
  1058.             &move 55,110,2
  1059.         }
  1060.     }
  1061. //穴１
  1062. #@5    &if(%direc<0){
  1063.         &pcm 11
  1064.         &move 13,113
  1065.         &se 21
  1066.     }
  1067. //穴２
  1068. #@6    &if(%direc<0){
  1069.         &pcm 11
  1070.         &move 13,140
  1071.         &se 21
  1072.     }
  1073.  
  1074. #@7    &if(%direc>=0){
  1075.     &if(宝05==0){
  1076.         &if(主人公==0){
  1077.             &monsprint 24,80,少年
  1078.             !o(1)j(2)|(0);j(0)ん、変な石ころが落ちてるなあpc
  1079.             !o(1)j(2)火の石j(0)を見つけた！p
  1080.             &if(%rasthaveitem>0){
  1081.                 宝05=1
  1082.                 全宝=全宝-1
  1083.                 !;j(2)火の石j(0)を手に入れた！pc
  1084.                 &partyitemin 火の石
  1085.                 &monsprint 24,80,少年
  1086.                 !o(1)j(2)|(0);j(0)ラッキー！pc
  1087.             }&else{
  1088.                 &monsprint 24,80,少年
  1089.                 !o(1)j(2)|(0);j(0)でも、これ以上持てないなあpc
  1090.             }
  1091.         }&else{
  1092.             &monsprint 24,80,少女
  1093.             !o(1)j(2)|(0);j(0)あら、なんだろうこの石pc
  1094.             !o(1)j(2)火の石j(0)を見つけた！p
  1095.             &if(%rasthaveitem>0){
  1096.                 宝05=1
  1097.                 !;j(2)火の石j(0)を手に入れた！pc
  1098.                 &partyitemin 火の石
  1099.                 &monsprint 24,80,少女
  1100.                 !o(1)j(2)|(0);j(0)やったー！pc
  1101.             }&else{
  1102.                 &monsprint 24,80,少女
  1103.                 !o(1)j(2)|(0);j(0)あーん、これ以上持てないよおpc
  1104.             }
  1105.         }
  1106.     }
  1107.     }
  1108. //マンイベント
  1109. //子供（男）
  1110. #1    &switch(%rnd(10)){
  1111.         &case(0):
  1112.             !o(1)j(2)子供;j(0)うおー、かっこいいもんすたーだあpc
  1113.             &break
  1114.         &case(1):
  1115.             !o(1)j(2)子供;j(0)うおー、かわいいもんすたーだあpc
  1116.             &break
  1117.         &case(2):
  1118.             !o(1)j(2)子供;j(0)うおー、つよそーなもんすたーだあpc
  1119.             &break
  1120.         &case(3):
  1121.             !o(1)j(2)子供;j(0)うおー、やどやのかんばんをしらべてみてpc
  1122.             &break
  1123.         &default:
  1124.             !o(1)j(2)子供;j(0)うおー、へんなもんすたーだあpc
  1125.     }
  1126. //子供（女）
  1127. #18    !o(1)j(2)子供;j(0)派手な羊よねp;
  1128.     !赤が移動スピードの変更p;緑が食事モードのＯＮ／ＯＦＦp;
  1129.     !水色が地名ウィンドウ表示のＯＮ／ＯＦＦなんだってp;
  1130.     !何のことだかさっぱりだけどw・w・w・p
  1131.     &if(%haveitem(ごじゃら虫)==1){
  1132.         !;あっ、そうだ;j(2)ごじゃら虫j(0)といえば蛙の大好物よねp;
  1133.         !何のことだかさっぱりだけどw・w・w・p
  1134.     }
  1135.     !c
  1136.     &manmove 18,-8
  1137. //若者（男）
  1138. #2    &if(子育て==0){
  1139.         子育て=1
  1140.         !o(1)j(2)若者;j(0)モンスターかあ;久しぶりに見るなあp;しっかり調教されてるみたいだねp;
  1141.         !洞窟なんかの野生のモンスターは凶暴で調教には一苦労だろうなpc
  1142.         &if(主人公==0){
  1143.             &monsprint 24,80,少年
  1144.             !o(1)j(2)|(0);j(0)いや、そーゆー訳じゃないんだ;
  1145.             !俺のことを親だと思ってんだよpc
  1146.             !o(1)j(2)若者;j(0)へー、すりこみってやつだねpc
  1147.         }&else{
  1148.             &monsprint 24,80,少女
  1149.             !o(1)j(2)|(0);j(0)この子たちあたしの子供なのpc
  1150.             !o(1)j(2)若者;j(0)へー、着ぐるみってやつだねpc
  1151.         }
  1152.     }&else{
  1153.         !o(1)j(2)若者;j(0)ま、子育てがんばんなよpc
  1154.     }
  1155. //若者（女）
  1156. #3    &if(言い伝え==0){
  1157.         言い伝え=1
  1158.         !o(1)j(2)若者;j(0)北西の洞窟には古の剣が封印されてるっていうけど;
  1159.         !ほんとかしらpc
  1160.         &if(主人公==0){
  1161.             &monsprint 24,80,少年
  1162.             !o(1)j(2)|(0);j(0)おい、そりゃホントかい;
  1163.             !北西の洞窟に剣があるってpc
  1164.             !o(1)j(2)若者;j(0)えっ、言い伝えだけど、
  1165.             !詳しく知りたいなら村長に聞くといいわpc
  1166.         }&else{
  1167.             &monsprint 24,80,少女
  1168.             !o(1)j(2)|(0);j(0)北西の洞窟！？pc
  1169.             !o(1)j(2)若者;j(0)村の言い伝えなの、村長なら詳しく話してくれるわよpc
  1170.         }
  1171.     }&else{
  1172.         !o(1)j(2)若者;j(0)ちょっと退屈だわ;町のコロシアムにでも行こうかしらpc
  1173.     }
  1174. //老人（男）
  1175. #4    &if(遺跡移動==1){
  1176.         !o(1)j(2)老人;j(0)若いもんは、いろいろと冒険が出来て羨ましいのぉpc
  1177.         &manmove 4,-2
  1178.         &&
  1179.     }
  1180.     &if(秘石>=1){
  1181.         !o(1)j(2)老人;j(0)モンスターのぉ;そういえば昔よく町の北にある遺跡を
  1182.         !探検したのうp;じゃがモンスターが強くて先に進めんかったわいp
  1183.     &if(主人公==0){
  1184.         &monsprint 24,80,少年
  1185.         !o(1)j(2)|(0);j(0)遺跡かあ;ありがと、じいさんpc
  1186.         !o(1)j(2)老人;j(0)礼には及ばん、わしは若いもんの味方じゃp
  1187.         &if((%gold+500)<32767){
  1188.             !;これをなんかの足しにしなされp
  1189.             &monsprint 24,80,少年
  1190.             !o(1)j(2)|(0);j(0)えっ、悪いなじいさんpc
  1191.             %gold=%gold+500
  1192.             !o(1)j(2)５００Ｇj(0)を手に入れた！pc
  1193.             !o(1)j(2)老人;j(0)ホッホッホッ、頑張りなさいpc
  1194.         }
  1195.     }&else{
  1196.         &monsprint 24,80,少女
  1197.         !o(1)j(2)|(0);j(0)なるほど、遺跡ね;ありがとう、おじいさんpc
  1198.         !o(1)j(2)老人;j(0)礼には及ばん、わしはj(2)ナウなヤングにバカウケのじじいj(0)
  1199.         !じゃからなpc
  1200.         &monsprint 24,80,少女
  1201.         !o(1)j(2)|(0);j(0)は、はあw・w・w・pc
  1202.     }
  1203.         遺跡移動=1
  1204.         &se 2
  1205.         &wait 20
  1206.         !o(1)j(2)エスバルン遺跡j(0)に移動可能になりましたpc
  1207.         &manmove 4,-2
  1208.         &&
  1209.     }
  1210.     
  1211.     &if(じじい==0){
  1212.         じじい=1
  1213.         !o(1)j(2)老人;j(0)あんた、珍しいモンスターを連れとるのお　しかも２匹もpc
  1214.     &if(主人公==0){
  1215.         &monsprint 24,80,少年
  1216.         !o(1)j(2)|(0);j(0)ああ、ちょっと訳ありでねpc
  1217.         !o(1)j(2)老人;j(0)ふーん、町の闘技場には行ってみたかp;
  1218.         !モンスターを闘わせて、賞品を出してるそうじゃp
  1219.         &monsprint 24,80,少年
  1220.         !o(1)j(2)|(0);j(0)へー、暇があったら行ってみるよp;じゃあな、じいさんpc
  1221.         
  1222.     }&else{
  1223.         &monsprint 24,80,少女
  1224.         !o(1)j(2)|(0);j(0)え、まあいろいろあってねpc
  1225.         !o(1)j(2)老人;j(0)おなごなのに、たいへんじゃのおp;
  1226.         &if((%gold+300)<32767){
  1227.             !これをなにかの足しにしなされpc
  1228.             &monsprint 24,80,少女
  1229.             !o(1)j(2)|(0);j(0)えっ、そんな悪いわよpc
  1230.             !o(1)j(2)老人;j(0)はは、遠慮しなさんなpc
  1231.             %gold=%gold+300
  1232.             !o(1)j(2)３００Ｇj(0)を手に入れた！pc
  1233.             &monsprint 24,80,少女
  1234.             !o(1)j(2)|(0);j(0)あ、ありがとう;おじいさんpc
  1235.         }
  1236.         !c
  1237.     }
  1238.     }&else{
  1239.         !o(1)j(2)老人;j(0)気を付けてなpc
  1240.     }
  1241.     &manmove 4,-2
  1242. //記録鶏
  1243. #5    &if(にわ1==1){
  1244.         !o(1)j(2)メアリー;j(0)こんにちわ、ご用はなあに？p;
  1245.         &jsr ＳＬ
  1246.         !o(1)それじゃあ、またねpc
  1247.         &manmove 5,-2
  1248.         &&
  1249.     }&else{
  1250.         にわ1=1
  1251.         !o(1)j(2)メアリー;j(0)こんにちわ;あたし、記録鶏のメアリーっていうのp;
  1252.         !あなたの旅の記録をつけたり、前の記録を呼びだしたりできるのp;
  1253.         !ご用の時はあたしに話しかけてねp;
  1254.         !もちろん今でもＯＫよp;
  1255.         &jsr ＳＬ
  1256.         !o(1)それじゃあ、またねpc
  1257.         &manmove 5,-2
  1258.     }
  1259.     &&
  1260. &label ＳＬ
  1261.     %selectlist={セーブ,ロード}
  1262.     選択=%select
  1263.     &switch(選択){
  1264.         &case(0):
  1265.             !セーブするのねp
  1266.             &save 100,30,10,-8
  1267.             &break
  1268.         &case(1):
  1269.             !ロードするのねp
  1270.             &load 1
  1271.             &break
  1272.         &default:
  1273.             !ふーん、そうp
  1274.     }
  1275. &rts
  1276. //ロードはここ
  1277. #100    !o(1)j(2)メアリー;j(0)おかえりなさい、今日もがんばってねpc
  1278.  
  1279. //お宝鶏
  1280. #6    &if(全宝==0){        //宝は全部とってある
  1281.         &if(%haveitem(黄色帽子)==0 and %rasthaveitem>0){
  1282.             !o(1)j(2)宝にわ;j(0)宝を全部集めたコケッ;
  1283.             !すごいコケッp;これはプレゼントコケッp
  1284.             !o(1)j(2)黄色帽子j(0)を手に入れた！pc
  1285.             &partyitemin 黄色帽子
  1286.         }&else{
  1287.             !o(1)j(2)宝にわ;j(0)ダンディな鶏は多くを語らないコケッpc
  1288.         }
  1289.         &&
  1290.     }
  1291.     &if(にわ2==1){        //鶏にお金を払った
  1292.         !o(1)j(2)宝にわ;j(0)残りのお宝はあとj(2)f(全宝)j(0)個コケッpc
  1293.         !人からもらったり、イベントなんかでのお宝は含まないコケッpc
  1294.         &&
  1295.     }
  1296.                 //鶏にお金を払っていない
  1297.     !o(1)j(2)宝にわ;１０００j(0)Ｇで、いい事教えてあげるコケッgp;
  1298.     &if(%inkeyn==0){
  1299.         &jsr 宝にわ金
  1300.     }&else{
  1301.         !o(1)　あーあ、もったいないコケッpc
  1302.     }
  1303.     &&
  1304. &label 宝にわ金
  1305.     &if(%gold>=1000){
  1306.         にわ2=1
  1307.         %gold=%gold-1000
  1308.         !go(1)　お前、いいヤツコケッp;
  1309.         !残りのお宝はあとj(2)f(全宝)j(0)個コケッp;
  1310.         !人からもらったり、イベントなんかでのお宝は含まないコケッpc
  1311.     }&else{
  1312.         !o(1)　金の無いヤツには用はないコケッpc
  1313.     }
  1314. &rts
  1315. //羊
  1316. #7    &if(羊1==0){
  1317.         羊1=1
  1318.         !o(1)j(2)コン羊;j(0)突然だけど、戦闘でレベル上げだけしたい時に食事モード
  1319.         !に入るのうざったくないかい？p;もしよかったら食事モードをＯＦＦにしてあげるよp;
  1320.         &if(%inkeyn==0){
  1321.             絶食=1
  1322.             !o(1)j(2)コン羊;j(0)そうかい、役に立ててうれしいよp;
  1323.             !一応、ボスの時は機能しないようになってるからねp;
  1324.             !通常に戻したくなったら、また僕に話しかけておくれよpc
  1325.         }&else{
  1326.             !o(1)j(2)コン羊;j(0)そうかい、気が変わったらまた話しかけてよpc
  1327.         }
  1328.     }&else{
  1329.         &if(絶食==1){
  1330.             !o(1)j(2)コン羊;j(0)食事モードをＯＮにするかい？p
  1331.             &if(%inkeyn==0){
  1332.                 絶食=0
  1333.                 !o(1)j(2)コン羊;j(0)そうかい、役に立ててうれしいよp;
  1334.                 !一応、ボスの時は機能しないようになってるからねp;
  1335.                 !ＯＦＦにしたくなったら、また僕に話しかけておくれよpc
  1336.             }&else{
  1337.                 !o(1)j(2)コン羊;j(0)そうかい、気が変わったらまた話しかけてよpc
  1338.             }
  1339.         }&else{
  1340.             !o(1)j(2)コン羊;j(0)食事モードをＯＦＦにするかい？p
  1341.             &if(%inkeyn==0){
  1342.                 絶食=1
  1343.                 !o(1)j(2)コン羊;j(0)そうかい、役に立ててうれしいよp;
  1344.                 !ＯＮにしたくなったら、また僕に話しかけておくれよpc
  1345.             }&else{
  1346.                 !o(1)j(2)コン羊;j(0)そうかい、気が変わったらまた話しかけてよpc
  1347.             }
  1348.         }
  1349.     }
  1350.         
  1351. //スピード羊
  1352. #8    &if(羊2==0){
  1353.         羊2=1
  1354.         !o(1)j(2)コン羊;j(0)突然だけど、家の中とかフィールドでの移動速度って
  1355.         !遅くないかい？p;ホントは家の中を走るのはすすめられないけどw・w・w・p;
  1356.         !もしよかったら速くしてあげるよp;
  1357.         &if(%inkeyn==0){
  1358.             速度=2
  1359.             !o(1)j(2)コン羊;j(0)そうかい、役に立ててうれしいよp;
  1360.             !遅くしたくなったら、また僕に話しかけておくれよp;
  1361.             !さすがに洞窟とかはゲームバランスに関わるから変えられないんだp;
  1362.             !ん、まさか改造してないよねw・w・w・pc
  1363.         }&else{
  1364.             !o(1)j(2)コン羊;j(0)そうかい、気が変わったらまた話しかけてよpc
  1365.         }
  1366.     }&else{
  1367.         &if(速度==1){
  1368.             !o(1)j(2)コン羊;j(0)移動速度を速くするかい？p
  1369.             &if(%inkeyn==0){
  1370.                 速度=2
  1371.                 !o(1)j(2)コン羊;j(0)そうかい、役に立ててうれしいよp;
  1372.                 !遅くしたくなったら、また僕に話しかけておくれよpc
  1373.             }&else{
  1374.                 !o(1)j(2)コン羊;j(0)そうかい、気が変わったらまた話しかけてよpc
  1375.             }
  1376.         }&else{
  1377.             !o(1)j(2)コン羊;j(0)移動速度を遅くするかい？p
  1378.             &if(%inkeyn==0){
  1379.                 速度=1
  1380.                 !o(1)j(2)コン羊;j(0)そうかい、役に立ててうれしいよp;
  1381.                 !遅くしたくなったら、また僕に話しかけておくれよpc
  1382.             }&else{
  1383.                 !o(1)j(2)コン羊;j(0)そうかい、気が変わったらまた話しかけてよpc
  1384.             }
  1385.         }
  1386.     }
  1387. //メッセージ羊
  1388. #9    &if(羊3==0){
  1389.         羊3=1
  1390.         !o(1)j(2)コン羊;j(0)突然だけど、町とかに入った時に表示される地名のウィンドウって
  1391.         !邪魔じゃないかい？p;もしよかったら消してあげるよp
  1392.         &if(%inkeyn==0){
  1393.             地名表示=1
  1394.             !o(1)j(2)コン羊;j(0)そうかい、役に立ててうれしいよp;
  1395.             !表示したくなったら、また僕に話しかけておくれよpc
  1396.         }&else{
  1397.             !o(1)j(2)コン羊;j(0)そうかい、気が変わったらまた話しかけてよpc
  1398.         }
  1399.     }&else{
  1400.         &if(地名表示==0){
  1401.             !o(1)j(2)コン羊;j(0)地名ウィンドウを消すかい？p
  1402.             &if(%inkeyn==0){
  1403.                 地名表示=1
  1404.                 !o(1)j(2)コン羊;j(0)そうかい、役に立ててうれしいよp;
  1405.                 !表示したくなったら、また僕に話しかけておくれよpc
  1406.             }&else{
  1407.                 !o(1)j(2)コン羊;j(0)そうかい、気が変わったらまた話しかけてよpc
  1408.             }
  1409.         }&else{
  1410.             !o(1)j(2)コン羊;j(0)地名ウィンドウを表示するかい？p
  1411.             &if(%inkeyn==0){
  1412.                 地名表示=0
  1413.                 !o(1)j(2)コン羊;j(0)そうかい、役に立ててうれしいよp;
  1414.                 !消したくなったら、また僕に話しかけておくれよpc
  1415.             }&else{
  1416.                 !o(1)j(2)コン羊;j(0)そうかい、気が変わったらまた話しかけてよpc
  1417.             }
  1418.         }
  1419.     }
  1420. //お宝
  1421. #10    &if(宝01==0){
  1422.         &if(主人公==0){
  1423.             &monsprint 24,80,少年
  1424.             !o(1)j(2)|(0);j(0)ん、看板の裏に何かあるぞpc
  1425.             !o(1)j(2)赤の魔石j(0)を見つけた！p
  1426.             &if(%rasthaveitem>0){
  1427.                 宝01=1
  1428.                 全宝=全宝-1
  1429.                 !;j(2)赤の魔石j(0)を手に入れた！pc
  1430.                 &partyitemin 赤の魔石
  1431.                 &monsprint 24,80,少年
  1432.                 !o(1)j(2)|(0);j(0)ラッキー！pc
  1433.             }&else{
  1434.                 &monsprint 24,80,少年
  1435.                 !o(1)j(2)|(0);j(0)でも、これ以上持てないなあpc
  1436.             }
  1437.         }&else{
  1438.             &monsprint 24,80,少女
  1439.             !o(1)j(2)|(0);j(0)あら、看板の裏に何かあるわpc
  1440.             !o(1)j(2)赤の魔石j(0)を見つけた！p
  1441.             &if(%rasthaveitem>0){
  1442.                 宝01=1
  1443.                 !;j(2)赤の魔石j(0)を手に入れた！pc
  1444.                 &partyitemin 赤の魔石
  1445.                 &monsprint 24,80,少女
  1446.                 !o(1)j(2)|(0);j(0)やったー！pc
  1447.             }&else{
  1448.                 &monsprint 24,80,少女
  1449.                 !o(1)j(2)|(0);j(0)あーん、これ以上持てないよおpc
  1450.             }
  1451.         }
  1452.     }
  1453. //宿屋
  1454. #11    !o(1)j(2)宿屋;j(0)いらっしゃい;
  1455.     &if(初宿==0){
  1456.         初宿=1
  1457.         !一泊j(2)２０j(0)Ｇだよp;おやっ、モンスター連れかい;
  1458.         !じゃあ、j(2)８０j(0)Ｇだねp
  1459.         &if(主人公==0){
  1460.             &monsprint 24,80,少年
  1461.             !o(1)j(2)|(0);j(0)おい、なんでそんなにするんだよpc
  1462.             !o(1)j(2)宿屋;j(0)モンスターがいると他のお客がこないからねえpc
  1463.             &monsprint 24,80,少年
  1464.             &partymove -2
  1465.             !o(1)j(2)|(0);j(0)ちぇっ、しゃーねえなあp;お前ら、外で寝てろっpc
  1466.             !o(1)j(2)|(1)＆|(2);j(0)ウピ、ウピ、ウピ─────ッ！pc
  1467.             &monsprint 24,80,少年
  1468.             !o(1)j(2)|(0);j(0)があー、わかったよっpc
  1469.             &partymove -8
  1470.             !o(1)j(2)宿屋;j(0)j(2)８０j(0)Ｇだよp;
  1471.         }&else{
  1472.             &monsprint 24,80,少女
  1473.             !o(1)j(2)|(0);j(0)えっ、どうしてそんなに高いのpc
  1474.             !o(1)j(2)宿屋;j(0)モンスターがいると他のお客がこないからねえpc
  1475.             &monsprint 24,80,少女
  1476.             &partymove -2
  1477.             !o(1)j(2)|(0);j(0)そっか、仕方ないわね;あんたたち外で寝かせらんないしpc
  1478.             &partymove 2
  1479.             !o(1)j(2)|(1)＆|(2);j(0)ウピピィ──pc
  1480.             &monsprint 24,80,少女
  1481.             !o(1)j(2)|(0);j(0)こら、くすぐったい;大人しくしてなさいpc
  1482.             &partymove 8
  1483.             !o(1)j(2)宿屋;j(0)j(2)８０j(0)Ｇだよp;
  1484.         }
  1485.     }&else{
  1486.         !一泊j(2)８０j(0)Ｇだよp;
  1487.     }
  1488.     !g                        //ゴールドウィンドウ表示
  1489.                             //ＹorＮ選択表示
  1490.     &if(%inkeyn==0){                //泊まりたい時
  1491.         &if(%gold>=80){                //所持金が宿代より多い時
  1492.             %gold=%gold-80            //所持金から宿代を引きます
  1493.             !それじゃ、ゆっくりおやすみpc
  1494.             &bgm -1
  1495.             &contrast 0            //暗くする
  1496.             &bgm 6
  1497.             &wait 400            //待つ
  1498.             &complete            //回復
  1499.             &contrast 15            //明るくする
  1500.             &bgm 16
  1501.             !o(1)j(2)宿屋;j(0)おはよう;また、来ておくれpc
  1502.         }&else{                    //所持金が足りない時
  1503.             !お金がなきゃ泊められないねえpc
  1504.         }
  1505.     }&else{                        //泊まりたくない時
  1506.         !そうかい、無理するんじゃないよpc
  1507.     }
  1508.     &manmove 11,-2
  1509. //寝たきり老人
  1510. #12    &if(病気==2){
  1511.         !o(1)j(2)老人;j(0)ふー、たいぶ楽になってきたよ;ほんとにありがとうp
  1512.     }&else{
  1513.         !o(1)j(2)老人;j(0)ゴホッゴホ;孫にはいつも苦労ばかり掛けてな;申し訳ないよp
  1514.     }
  1515. //看病娘
  1516. #13    &if(病気==2){
  1517.         !o(1)j(2)若者;j(0)本当にありがとうございましたpc
  1518.         &manmove 13,-6
  1519.         &&
  1520.     }
  1521.     &if(%haveitem(薬草)==1){
  1522.         &if(主人公==0){
  1523.             &monsprint 24,80,少年
  1524.             !o(1)j(2)|(0);j(0)ほら、薬草とってきてやったぜpc
  1525.             !o(1)j(2)若者;j(0)えっ！本当ですか;ありがとうございますp;
  1526.             !これでおじいちゃんの病気も良くなるわp
  1527.             &monsprint 24,80,少年
  1528.             !o(1)j(2)|(0);j(0)良かったなpc
  1529.             !o(1)j(2)若者;j(0)はい、本当にありがとうございますp;
  1530.             !これ、ほんのお礼の気持ちですp
  1531.             &monsprint 24,80,少年
  1532.             !o(1)j(2)|(0);j(0)そうか、悪いなpc
  1533.         }&else{
  1534.             &monsprint 24,80,少女
  1535.             !o(1)j(2)|(0);j(0)お待たせ、薬草とってきたわよpc
  1536.             !o(1)j(2)若者;j(0)えっ！本当ですか;ありがとうございますp;
  1537.             !これでおじいちゃんの病気も良くなるわp
  1538.             &monsprint 24,80,少女
  1539.             !o(1)j(2)|(0);j(0)良かったわねpc
  1540.             !o(1)j(2)若者;j(0)はあ？p
  1541.             &monsprint 24,80,少女
  1542.             !o(1)j(2)若者;j(0)はい、本当にありがとうございますp;
  1543.             !これ、ほんのお礼の気持ちですp
  1544.             &monsprint 24,80,少女
  1545.             !o(1)j(2)|(0);j(0)えっ、でもぉpc
  1546.             !o(1)j(2)若者;j(0)どうぞ、受け取って下さいp
  1547.             &monsprint 24,80,少女
  1548.             !o(1)j(2)|(0);j(0)わかったわ、ありがとうpc
  1549.         }
  1550.         !o(1)j(2)ピンクのリボンj(0)を手に入れた！pc
  1551.         &partyitemout 薬草
  1552.         &partyitemin ピンクのリボン
  1553.         &manmove 13,-6
  1554.         %mandef(12)={$a,1,$A0,2,-1}        //寝てる老人
  1555.         &on
  1556.         病気=2
  1557.         &&
  1558.     }
  1559.     &if(病気==1){
  1560.         !o(1)j(2)若者;j(0)気をつけて下さいねpc
  1561.         &manmove 13,-6
  1562.         &&
  1563.     }
  1564.     &if(秘石>=1){
  1565.         !o(1)j(2)若者;j(0)はあ、妖精の森に生えている薬草があったら、
  1566.         !おじいちゃんの病気も少しは良くなるのにw・w・w・p;
  1567.         &if(主人公==0){
  1568.             &monsprint 24,80,少年
  1569.             !o(1)j(2)|(0);j(0)ん、よかったら採ってきてやろうかpc
  1570.             !o(1)j(2)若者;j(0)えっ、でもあそこにはモンスターがp
  1571.             &monsprint 24,80,少年
  1572.             !o(1)j(2)|(0);j(0)なにっ、モンスター;そりゃあ好都合だp;
  1573.             !で、そこへはどうやっていきゃあいいんだpc
  1574.             !o(1)j(2)若者;j(0)はい、この村を出て南の森がそうですp;
  1575.             !たしか、精霊木という大きな木の回りにだけ生えてるそうなんですp
  1576.             &monsprint 24,80,少年
  1577.             !o(1)j(2)|(0);j(0)そうか、待ってな薬草もちゃんと採ってきてやるからpc
  1578.         }&else{
  1579.             &monsprint 24,80,少女
  1580.             !o(1)j(2)|(0);j(0)よかったら、あたしが替わりに採ってきてあげましょうかpc
  1581.             !o(1)j(2)若者;j(0)えっ、でもあそこにはモンスターがp
  1582.             &monsprint 24,80,少女
  1583.             !o(1)j(2)|(0);j(0)モンスターですって、丁度いいわ;
  1584.             !あたし、モンスターに用があるのよpc
  1585.             !o(1)j(2)若者;j(0)はあ？p
  1586.             &monsprint 24,80,少女
  1587.             !o(1)j(2)|(0);j(0)で、そこにはどうやって行くのpc
  1588.             !o(1)j(2)若者;j(0)はい、この村を出て南の森がそうですp;
  1589.             !たしか、精霊木という大きな木の回りにだけ生えてるそうなんですp
  1590.             &monsprint 24,80,少女
  1591.             !o(1)j(2)|(0);j(0)なるほど、薬草もすぐ採ってくるから待っててpc
  1592.         }
  1593.         !o(1)j(2)若者;j(0)はい、ありがとうございますpc
  1594.         &manmove 13,-6
  1595.         病気=1
  1596.         &se 2
  1597.         &wait 20
  1598.         !o(1)j(2)妖精の森j(0)に移動可能になりましたpc
  1599.     }
  1600.     &if(秘石==0){
  1601.         !o(1)j(2)若者;j(0)おじいちゃんたら;いつも、すまないすまないって;
  1602.         !孫に気を使うことないのにw・w・w・pc
  1603.         &manmove 13,-6
  1604.         &&
  1605.     }
  1606. //村長奥さん
  1607. #14    !o(1)j(2)村長夫人;j(0)キャー！p;モンスターなんかを家に連れ込まないで頂戴っ！pc
  1608. //村長
  1609. #15    &switch(言い伝え){
  1610.         &case(0):
  1611.             !o(1)j(2)村長;j(0)旅の方かい、何もない村だがゆっくりしていきなさいpc
  1612.             &break
  1613.         &case(1):
  1614.             言い伝え=2
  1615.             &jsr 村長Ｍ
  1616.             !o(1)j(2)村長;j(0)いや、おやすいご用だよpc
  1617.             &se 2
  1618.             &wait 20
  1619.             !o(1)j(2)アロンゲルスの洞窟j(0)に移動可能になりましたpc
  1620.             &break
  1621.         &case(2):
  1622.             言い伝え=3
  1623.             !o(1)j(2)村長;j(0)もしかして、洞窟に行く気かいp;
  1624.             !止めはせんが、町で十分に装備を整えてから行くんだよpc
  1625.             &break
  1626.         &default:
  1627.             !o(1)j(2)村長;j(0)息子が何か隠しているらしいんだpc
  1628.     }
  1629.     &manmove 15,-2
  1630. &&
  1631. &label 村長Ｍ
  1632.     &if(主人公==0){
  1633.         &monsprint 24,80,少年
  1634.         !o(1)j(2)|(0);j(0)村長、この村の言い伝えっていうのを聞かせてくれないかいpc
  1635.         
  1636.         !o(1)j(2)村長;j(0)言い伝え、あー聖剣と魔竜の事かい;いいだろう、話してやろうp;
  1637.         !昔からこの村に伝わっている話なんだがp;
  1638.         !北西の洞窟には世界を統一する力を持つという聖剣の１つが封印されていてp;
  1639.         !そこにはその聖剣を守るアロンゲルスという恐ろしい魔竜が居るそうなんだp;
  1640.         !だが、前にこの村を訪れた冒険者が洞窟の最下層までいったんだが、
  1641.         !魔竜も聖剣もなかったらしいw・w・w・p;ま、こんなところだよpc
  1642.         
  1643.         &monsprint 24,80,少年
  1644.         !o(1)j(2)|(0);j(0)（なんか、あっさり見つかったなあ;でも、何も無かったってどういうことだ;
  1645.         !ま、とりあえず行ってみるか）p;
  1646.         !なるほど;礼をいうぜ、村長pc
  1647.     }&else{
  1648.         &monsprint 24,80,少女
  1649.         !o(1)j(2)|(0);j(0)村長さん、この村の言い伝えを教えて欲しいんだけどpc
  1650.         
  1651.         !o(1)j(2)村長;j(0)言い伝え、あー聖剣と魔竜の事かい;いいだろう、話してやろうp;
  1652.         !昔からこの村に伝わっている話なんだがp;
  1653.         !北西の洞窟には世界を統一する力を持つという聖剣の１つが封印されていてp;
  1654.         !そこにはその聖剣を守るアロンゲルスという恐ろしい魔竜が居るそうなんだp;
  1655.         !だが、前にこの村を訪れた冒険者が洞窟の最下層までいったんだが、
  1656.         !魔竜も聖剣もなかったらしいw・w・w・p;ま、こんなところだよpc
  1657.         
  1658.         &monsprint 24,80,少女
  1659.         !o(1)j(2)|(0);j(0)（うわっ、こんなにすぐ場所がわかっちゃうなんて;
  1660.         !でも、まだなにかありそうね;とにかく調べてみなきゃ）p;
  1661.         !とっても勉強になったわ、ありがとう村長さんpc
  1662.     }
  1663. &rts
  1664. //寝坊子供
  1665. #16    &if(言い伝え==4){
  1666.         !o(1)j(2)村長の息子;j(0)ぐーw・w・w・ぐーw・w・w・pc
  1667.         &&
  1668.     }
  1669.     &if(言い伝え==3 and %rasthaveitem>0){
  1670.         言い伝え=4
  1671.         !o(1)j(2)村長の息子;j(0)もうだめだ;これ以上、君を庇い切れないよp
  1672.         &if(主人公==0){
  1673.             &monsprint 24,80,少年
  1674.             !o(1)j(2)|(0);j(0)ん、どおしたぼうずpc
  1675.             !o(1)j(2)村長の息子;j(0)あっ！;w・w・w・実は僕、j(2)ごじゃら虫j(0)を
  1676.             !飼ってるんだp;でも、母さん動物とか虫が嫌いだからw・w・w・;
  1677.             !ねえ、おにいちゃん;良かったらかわりに飼ってよp
  1678.         }&else{
  1679.             &monsprint 24,80,少女
  1680.             !o(1)j(2)|(0);j(0)ねえどうしたの村長さんも心配してるわよpc
  1681.             !o(1)j(2)村長の息子;j(0)あっ！;w・w・w・実は僕、j(2)ごじゃら虫j(0)を
  1682.             !飼ってるんだp;でも、母さん動物とか虫が嫌いだからw・w・w・;
  1683.             !ねえ、おねえちゃん;良かったらかわりに飼ってよp
  1684.         }    
  1685.         !o(1)j(2)ごじゃら虫j(0)を手に入れた！pc
  1686.         &partyitemin ごじゃら虫
  1687.     }&else{
  1688.         !o(1)j(2)村長の息子;j(0)なんだよ、僕は眠いんだよpc
  1689.     }
  1690.     &manmove 16,-2
  1691. //元気子供
  1692. #17    !o(1)j(2)村長の娘;j(0)お兄ちゃん、いつまで寝てるんだろうpc
  1693.  
  1694. //ウキョ
  1695. #19    &if(うき==0){
  1696.         !o(1)j(2)ウキョ;j(0)あっ、|(3)ちゃんだキョp
  1697.         !o(1)j(2)|(3);j(0)あっ、ウキョだあ～p
  1698.         !o(1)j(2)ウキョ;j(0)|(3)ちゃん例のヤツ持ってるんなら変身させてあげるキョp
  1699.         !o(1)j(2)|(3);j(0)れいのヤツ～？p
  1700.         !o(1)j(2)ウキョ;j(0)j(2)黄色帽子j(0)にj(2)赤ランドセルj(0)、j(2)セーラー服j(0)だキョp
  1701.         うき=1
  1702.     }
  1703.     &if(%haveitem(黄色帽子)==1 or %haveitem(赤ランドセル)==1 or %haveitem(セーラー服)==1){
  1704.     !o(1)j(2)ウキョ;j(0)変身するキョ？p
  1705.     &if(%inkeyn==0){
  1706.         !;何に変身するキョ？p
  1707.         %selectlist={園児,小学生,中学生}
  1708.         選択=%select
  1709.         &switch(選択){
  1710.             &case(0):
  1711.                 &jsr 変身1
  1712.                 &break
  1713.             &case(1):
  1714.                 &jsr 変身2
  1715.                 &break
  1716.             &case(2):
  1717.                 &jsr 変身3
  1718.         }
  1719.     }
  1720.     }&else{
  1721.         !;どこかにあるはずだキョ;よく探すキョp
  1722.     }
  1723.     !;それじゃあ、まただキョpc
  1724.     &&
  1725. &label 変身1
  1726.     &if(%haveitem(黄色帽子)==1){
  1727.         !;黄色帽子で園児に変身だキョ！p
  1728.         &se 26
  1729.         &freash 65535
  1730.         &wait 30
  1731.         !o(1)j(2)|(3);j(0)うわあ～p
  1732.         &freash 65535
  1733.         &se 25
  1734.         &wait 50
  1735.         %partydef(3)={$c,4,$A0,-1,-1,-1,-1,-1,-1,-1}
  1736.         &on
  1737.         !o(1)j(2)ウキョ;j(0)ＯＫだキョp
  1738.     }&else{
  1739.         !;黄色帽子がないキョp
  1740.     }
  1741. &rts
  1742. &label 変身2
  1743.     &if(%haveitem(赤ランドセル)==1){
  1744.         !;赤ランドセルで小学生に変身だキョ！p
  1745.         &se 26
  1746.         &freash 65535
  1747.         &wait 30
  1748.         !o(1)j(2)|(3);j(0)うわあ～p
  1749.         &freash 65535
  1750.         &se 25
  1751.         &wait 50
  1752.         %partydef(3)={$c,4,$C0,-1,-1,-1,-1,-1,-1,-1}
  1753.         &on
  1754.         !o(1)j(2)ウキョ;j(0)ＯＫだキョp
  1755.     }&else{
  1756.         !;赤ランドセルがないキョp
  1757.     }
  1758. &rts
  1759. &label 変身3
  1760.     &if(%haveitem(セーラー服)==1){
  1761.         !;セーラー服で中学生に変身だキョ！p
  1762.         &se 26
  1763.         &freash 65535
  1764.         &wait 30
  1765.         !o(1)j(2)|(3);j(0)うわあ～p
  1766.         &freash 65535
  1767.         &se 25
  1768.         &wait 50
  1769.         %partydef(3)={$c,4,$E0,-1,-1,-1,-1,-1,-1,-1}
  1770.         &on
  1771.         !o(1)j(2)ウキョ;j(0)ＯＫだキョp
  1772.     }&else{
  1773.         !;セーラー服がないキョp
  1774.     }
  1775. &rts
  1776.  
  1777. //蛙１号
  1778. #36    &if(宝02==0){
  1779.         !o(1)j(2)カエル１号;j(0)ケロケロケロッ、ここに落ちたのが運の尽きp;
  1780.         !強制的にゲームを終了しちゃうケロッw・w・w・p;
  1781.         !なーんてウソだケロッ;魔法で今出してあげるケロッ;あっ、これはお土産だケロッp
  1782.         &if(%rasthaveitem>0){
  1783.             宝02=1
  1784.             全宝=全宝-1
  1785.             !o(1)j(2)　狼の牙j(0)を手に入れた！p
  1786.             &partyitemin 狼の牙
  1787.         }
  1788.     }&else{
  1789.         &if(%haveitem(ごじゃら虫)==1){
  1790.             !o(1)j(2)カエル１号;j(0)んっ、それはごじゃら虫っ！p;
  1791.             !うまそうだケロ;これと交換するケロp
  1792.             &partyitemout ごじゃら虫
  1793.             &partyitemin 赤ランドセル
  1794.             !o(1)j(2)赤ランドセルj(0)を手に入れた！pc
  1795.         }&else{
  1796.             !o(1)j(2)カエル１号;j(0)また来たケロかあ、もう何も無いケロp;
  1797.         }
  1798.     }
  1799.         !o(1)　それじゃ、いくケロ;ケロ、ケロケロのケロリンパッー！！pc
  1800.         &pcm 9
  1801.         &move 2,40,4
  1802.  
  1803. //蛙２号
  1804. #37    &if(宝03==0){
  1805.         !o(1)j(2)カエル２号;j(0)ケロケロケロッ、ここに落ちたのが運の尽きp;
  1806.         !こんな姿をしているが我は大魔王なのだっ;これからお前をぶちのめしてやるぞぉw・w・w・p;
  1807.         !なーんてウソだケロッ;魔法で今出してあげるケロッ;あっ、これはお土産だケロッp
  1808.         &if(%rasthaveitem>0){
  1809.             宝03=1
  1810.             全宝=全宝-1
  1811.             !o(1)j(2)　氷の石j(0)を手に入れた！p
  1812.             &partyitemin 氷の石
  1813.         }
  1814.     }&else{
  1815.         &if(%haveitem(ごじゃら虫)==1){
  1816.             !o(1)j(2)カエル２号;j(0)んっ、それはごじゃら虫っ！p;
  1817.             !うまそうだケロ;これと交換するケロp
  1818.             &partyitemout ごじゃら虫
  1819.             &partyitemin 赤ランドセル
  1820.             !o(1)j(2)赤ランドセルj(0)を手に入れた！pc
  1821.         }&else{
  1822.             !o(1)j(2)カエル２号;j(0)また来たケロかあ、もう何も無いケロp;
  1823.         }
  1824.     }
  1825.         !o(1)　それじゃ、いくケロ;ケロロン、ケロロン、ケロリンパッー！！pc
  1826.         &pcm 9
  1827.         &move 62,10,4
  1828. //宝箱
  1829. #38    &if(宝04==0){            //フラグが立っていない（宝をまだ取っていない）時
  1830.         &pcm 2
  1831.         金=100            //お金（宝箱の中身）
  1832.         &jsr 宝箱処理２        //アイテムの場合はこのサブルーチン
  1833.         &if(宝フラグ==1){宝04=1}//アイテムを取ることが出来たら
  1834.     }&else{                //フラグが立っていた（宝を取ってある）時
  1835.         !o(1)からっぽですpc
  1836.     }
  1837. //以下、家具類
  1838. #29
  1839. #28
  1840. #27
  1841. #26
  1842. #25
  1843. #24
  1844. #23
  1845. #22
  1846. #23
  1847. #24
  1848. #25
  1849. #26
  1850. #27
  1851. #28
  1852. #29
  1853. #30
  1854. #31
  1855. #32
  1856. #33
  1857. #35
  1858. #36
  1859. #37
  1860. #38
  1861. #39
  1862. //▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
  1863.  
  1864.     [MATI]                    //町
  1865.  
  1866. //    ■　　　■　　　■　　　■■■■■　■
  1867. //    ■■　■■　　■　■　　　　■　　　■
  1868. //    ■　■　■　■　　　■　　　■　　　■
  1869. //    ■　　　■　■■■■■　　　■　　　■
  1870. //    ■　　　■　■　　　■　　　■　　　■
  1871.  
  1872. //▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
  1873.     &sppsp PTN\MATI.SPP
  1874.     &map MAP\MATI.MAP
  1875.     &mapsp PTN\MURA.SP
  1876.     &mappal PTN\MURA.PAL
  1877.     %partypoint={53,2,2}
  1878.     &if(ナカラ==1){
  1879.         &partyset 0,1,2,3
  1880.     }&else{
  1881.         &partyset 0,1,2
  1882.     }
  1883.     &commenu 1
  1884.     &if(町の中==0 or コロ中==1){
  1885.         &bgm 16
  1886.         &bgm 16
  1887.         コロ中=0
  1888.     }
  1889.  
  1890. //マンイベント定義(PAL,BANK,SP,方向,動き(-1:静止,0:足踏み,1以上:乱移動 大きいほど遅い))
  1891.  
  1892. //中の人
  1893.     %mandef(1)={$a,1,$E0,4,0}        //道具屋
  1894.     %mandef(2)={$c,1,$C0,2,0}        //武器屋
  1895.     %mandef(3)={$a,1,$A0,2,0}        //宿屋
  1896.     %mandef(4)={$b,0,$C0,6,3}        //お母さん
  1897.     %mandef(6)={$a,0,$80,8,1}        //宿屋の客
  1898.     %mandef(7)={$d,1,$00,4,2}        //モンスター
  1899.     %mandef(8)={$9,0,$E0,2,0}        //博士
  1900.     %mandef(9)={$c,1,$40,8,0}        //マスター
  1901.     %mandef(10)={$b,1,$60,8,0}        //酔っ払い
  1902.     %mandef(11)={$b,1,$20,2,0}        //酔っ払い
  1903.     %mandef(12)={$c,1,$80,2,2}        //ウェイトレス
  1904.     &if(秘石>=3 and ナカラ==0){
  1905.     %mandef(16)={$c,4,$A0,2,2}        //ナカラ
  1906.     }
  1907. //外の人
  1908.     %mandef(5)={$b,0,$60,8,1}        //女の子
  1909.     %mandef(13)={$b,0,$80,4,2}        //若者（男）
  1910.     %mandef(20)={$b,0,$C0,6,3}        //おばさん
  1911.     %mandef(24)={$b,1,$E0,2,0}        //おばあさん
  1912.     %mandef(25)={$a,0,$A0,8,3}        //おじさん
  1913.     %mandef(36)={$a,2,$00,8,0}        //セーブ＆ロード鶏
  1914. //お宝
  1915.     &if(宝06==0){
  1916.         %mandef(26)={$3,0,$00,2,-1}        //お宝（閉じ）
  1917.     }&else{
  1918.         %mandef(26)={$3,0,$00,4,-1}        //お宝（開き）
  1919.     }
  1920.     &if(宝07==0){
  1921.         %mandef(27)={$3,0,$00,2,-1}        //お宝（閉じ）
  1922.     }&else{
  1923.         %mandef(27)={$3,0,$00,4,-1}        //お宝（開き）
  1924.     }
  1925.     &if(宝08==0){
  1926.         %mandef(21)={$3,0,$00,2,-1}        //お宝（閉じ）
  1927.     }&else{
  1928.         %mandef(21)={$3,0,$00,4,-1}        //お宝（開き）
  1929.     }
  1930.     &if(宝09==0){
  1931.         %mandef(28)={$3,0,$00,2,-1}        //お宝（閉じ）
  1932.     }&else{
  1933.         %mandef(28)={$3,0,$00,4,-1}        //お宝（開き）
  1934.     }
  1935.     &if(宝10==0){
  1936.         %mandef(29)={$3,0,$00,2,-1}        //お宝（閉じ）
  1937.     }&else{
  1938.         %mandef(29)={$3,0,$00,4,-1}        //お宝（開き）
  1939.     }
  1940.     &if(宝11==0){
  1941.         %mandef(30)={$3,0,$00,2,-1}        //お宝（閉じ）
  1942.     }&else{
  1943.         %mandef(30)={$3,0,$00,4,-1}        //お宝（開き）
  1944.     }
  1945.     &if(宝12==0){
  1946.         %mandef(31)={$3,0,$00,2,-1}        //お宝（閉じ）
  1947.     }&else{
  1948.         %mandef(31)={$3,0,$00,4,-1}        //お宝（開き）
  1949.     }
  1950. //家具
  1951.     %mandef(22)={$3,0,$20,2,-1}        //テーブル
  1952.     %mandef(23)={$3,0,$20,4,-1}        //テーブル
  1953.     %mandef(32)={$3,0,$20,6,-1}        //テーブル
  1954.     %mandef(33)={$3,0,$20,8,-1}        //テーブル
  1955.     %mandef(34)={$3,0,$20,6,-1}        //テーブル
  1956.     %mandef(35)={$3,0,$20,8,-1}        //テーブル
  1957.     %mandef(38)={$4,0,$40,6,-1}        //椅子
  1958.     %mandef(39)={$3,0,$40,4,-1}        //椅子
  1959.     %mandef(19)={$3,0,$40,6,-1}        //椅子
  1960.     %mandef(18)={$3,0,$40,4,-1}        //椅子
  1961.     %mandef(17)={$3,0,$40,2,-1}        //椅子
  1962.     %mandef(15)={$3,0,$40,8,-1}        //椅子
  1963.     %mandef(14)={$3,0,$40,8,-1}        //椅子
  1964.     &on
  1965.     &jsr 巨大化
  1966.     &if(地名表示==0){
  1967.         &if(町の中==0){
  1968.             &monsprint 44,100,Ｍ５,1
  1969.             &monsprint 128,100,Ｍ６,1
  1970.             &wait 100
  1971.             &monsprint 0,10,消し
  1972.             &monsprint 128,10,消し
  1973.         }
  1974.     }
  1975.     &if(町の中==0 and 最初==0){
  1976.         &if(主人公==0){
  1977.             &monsprint 24,80,少年
  1978.             !o(1)j(2)|(0);j(0)この地に聖剣があるのだろうけど;
  1979.             !正確な場所はわからないな;
  1980.             !とりあえず聖剣の情報を集めるとするかpc
  1981.         }&else{
  1982.             &monsprint 24,80,少女
  1983.             !o(1)j(2)|(0);j(0)この地に聖剣があることは確かだと思うから;
  1984.             !正確な場所を見つけるために情報を集めないとねpc
  1985.         }
  1986.     }
  1987.     町の中=1
  1988.         
  1989. #@0    &if(%direc<0){
  1990.         町の中=0
  1991.         &goto2 FIELD,22,20,2
  1992.     }
  1993. #@1    &if(%direc<0){
  1994.         &if(%py<100){
  1995.             &move 26,121,8
  1996.             &partyspeed 速度
  1997.         }&else{
  1998.             &move 38,23,2
  1999.             &partyspeed 2
  2000.         }
  2001.     }
  2002. //武器や
  2003. #@2    &if(%direc<0){
  2004.         &if(%py<100){
  2005.             %manpoint(15)={60,114}
  2006.             %manpoint(17)={60,109}
  2007.             %manpoint(22)={59,112}
  2008.             %manpoint(23)={61,112}
  2009.             &move 64,121,8
  2010.             &partyspeed 速度
  2011.         }&else{
  2012.             &move 72,26,2
  2013.             &partyspeed 2
  2014.         }
  2015.     }
  2016. //ナカラ
  2017. #@3    &if(%direc<0){
  2018.         &if(%py<100){
  2019.             &move 26,158,8
  2020.             &partyspeed 速度
  2021.         }&else{
  2022.             &move 10,53,2
  2023.             &partyspeed 2
  2024.         }
  2025.     }
  2026. #@4    &if(%direc<0){
  2027.         &if(%py<100){
  2028.             &move 64,158,8
  2029.             &partyspeed 速度
  2030.         }&else{
  2031.             &move 87,56,2
  2032.             &partyspeed 2
  2033.         }
  2034.     }
  2035. #@5    &if(%direc<0){
  2036.         &if(%py<100){
  2037.             %manpoint(32)={20,186}
  2038.             %manpoint(33)={22,186}
  2039.             %manpoint(38)={18,185}
  2040.             %manpoint(39)={24,185}
  2041.             %manpoint(17)={21,183}
  2042.             %manpoint(15)={21,188}
  2043.             &move 26,195,8
  2044.             &partyspeed 速度
  2045.         }&else{
  2046.             &move 33,70,2
  2047.             &partyspeed 2
  2048.         }
  2049.     }
  2050. #@6    &if(%direc<0){
  2051.         &if(%py<100){
  2052.             %manpoint(32)={57,223}
  2053.             %manpoint(33)={59,223}
  2054.             %manpoint(38)={55,222}
  2055.             %manpoint(39)={61,222}
  2056.             %manpoint(17)={58,220}
  2057.             %manpoint(15)={58,225}
  2058.             &move 68,232,8
  2059.             &partyspeed 速度
  2060.         }&else{
  2061.             &move 59,74,2
  2062.             &partyspeed 2
  2063.         }
  2064.     }
  2065. #@7    &if(%direc<0){
  2066.         &if(%py<100){
  2067.             %manpoint(22)={21,223}
  2068.             %manpoint(23)={23,223}
  2069.             %manpoint(17)={22,220}
  2070.             %manpoint(15)={22,225}
  2071.             &move 26,232,8
  2072.             &partyspeed 速度
  2073.         }&else{
  2074.             &move 90,97,2
  2075.             &partyspeed 2
  2076.         }
  2077.     }
  2078. #@8    &if(%direc<0){
  2079.         &if(%py<160){
  2080.             &move 73,181,8
  2081.         }&else{
  2082.             &move 73,145,2
  2083.         }
  2084.     }
  2085. #@9    &if(%direc<0){&goto COR}
  2086.  
  2087. //道具屋
  2088. #1    &ldef S1
  2089.     &ldef S2
  2090.     !o(1)j(2)道具屋;j(0)いらっしゃいませ;ご用は何ですか？p
  2091.     %shoplist={ポーション,ハイポーション,火の石,氷の石}    //商品の設定
  2092.     &if(秘石>3){
  2093.         %shoplist={ハイポーション,フルポーション,炎の石,氷結の石}//商品の設定
  2094.     }
  2095.     %selectlist={買いたい,売りたい,何でもない}//選択肢の設定
  2096.     &label                //    以下の&jmp @bはここに飛んでくる
  2097.     &if(S2==1){!o(1)j(2)道具屋;j(0)他にご用はありませんか？p}
  2098.     S2=1
  2099.     S1=%select            //%selectをローカル変数"S2"にコピー
  2100.                     //以下で選択肢を表示して入力待ちになります
  2101.     &switch(S1){            //買う(0)を選択した時
  2102.         &case(0):
  2103.             !o(1)j(2)道具屋;j(0)何をお求めですか？p
  2104.             &jsr 買う01    //"&label 買う"に飛びます
  2105.                     //　&rtsで戻ってくる必要があるので&jmpではなく&jsr
  2106.             &jmp @b        //１つ前の"&label"に飛ぶ
  2107.         &case(1):        //売る(1)を選択した時
  2108.             !o(1)j(2)道具屋;j(0)何をお売りになりますか？:!2
  2109.             &jsr 売る01    //"&label 売る"に飛びます
  2110.             &jmp @b        //１つ前の"&label"に飛ぶ
  2111.         &default:        //やめる(2)を選択、もしくはキャンセルした時
  2112.             !o(1)j(2)道具屋;j(0)ありがとうございました;またご来店くださいpc
  2113.             S2=0
  2114.             &manmove 1,-4
  2115.         }
  2116.     &&
  2117. &label 買う01
  2118.     &ldef S1
  2119.     &label                //    以下の&jmp @bはここに飛んでくる
  2120.     &if(S2==2){!o(1)j(2)道具屋;j(0)他にはありませんか？p}
  2121.     S2=2
  2122.     S1=%shopsel(100)        
  2123.     &switch( S1 ){            //%shopselの戻り値がS1に入っています
  2124.     &default:            //普通に買えた時
  2125.         !o(1)j(2)道具屋;j(0)ありがとうございますp
  2126.         &jmp @b
  2127.     &case(0):            //買うのを止めた時
  2128.         &break
  2129.     &case(-1):            //お金が足りなかった時
  2130.         !o(1)j(2)道具屋;j(0)申し訳ないんですが;お金が足りませんねえp
  2131.         &jmp @b
  2132.     &case(-2):            //アイテムがもう持てない時
  2133.         !o(1)j(2)道具屋;j(0)お客さんはこれ以上荷物が持てないみたいですがp
  2134.         &jmp @b
  2135.     }
  2136.     S2=1
  2137. &rts                    //"&jsr 買う"に帰ります
  2138.  
  2139. &label 売る01
  2140.     &ldef S1
  2141.     &label                //    以下の&jmp @bはここに飛んでくる
  2142.     &if(S2==2){!o(1)j(2)道具屋;j(0)他にはありませんか？:!2}
  2143.     S2=2
  2144.     S1=%shopbuy(45)
  2145.     &switch( S1 ){            //%shopbuyの戻り値がS1に入っています
  2146.     &default:            //普通に売れた時
  2147.         !o(1)j(2)道具屋;j(0)ありがとうございますp
  2148.         &jmp @b
  2149.     &case(0):            //売るのをやめた時
  2150.         &break
  2151.     &case(-1):            //売れないアイテムの時
  2152.         !o(1)j(2)道具屋;j(0)申し訳ないんですが;これは買い取ることができませんねえp
  2153.         &jmp @b
  2154.     }
  2155.     S2=1
  2156. &rts                    //"&jsr 売る"に帰ります
  2157.  
  2158. //武器屋
  2159. #2    &ldef S1
  2160.     &ldef S2
  2161.     !o(1)j(2)武器屋;j(0)いらっしゃい;用は何だい？p
  2162.     &if(主人公==0){
  2163.         &if(秘石<3){
  2164.             %shoplist={フォルシオン,ツヴァイハンダー,プレートコート,ブリガンダイン}
  2165.         }&else{
  2166.             %shoplist={バスタードソード,クレイモア,プレートアーマー,プレート・メイル}
  2167.         }
  2168.     }&else{
  2169.         &if(秘石<3){
  2170.             %shoplist={エペ,エストック,キュイラス,リングメイル}
  2171.         }&else{
  2172.             %shoplist={レイピア,フラムベルグ,チェインメイル,ハーフ・プレート}
  2173.         }
  2174.     }
  2175.     %selectlist={買いたい,売りたい,何でもない}//選択肢の設定
  2176.     &label                //    以下の&jmp @bはここに飛んでくる
  2177.     &if(S2==1){!o(1)j(2)武器屋;j(0)他に用はないかい？p}
  2178.     S2=1
  2179.     S1=%select            //%selectをローカル変数"S2"にコピー
  2180.                     //以下で選択肢を表示して入力待ちになります
  2181.     &switch(S1){            //買う(0)を選択した時
  2182.         &case(0):
  2183.             !o(1)j(2)武器屋;j(0)何を買うんだい？p
  2184.             &jsr 買う02    //"&label 買う"に飛びます
  2185.                     //　&rtsで戻ってくる必要があるので&jmpではなく&jsr
  2186.             &jmp @b        //１つ前の"&label"に飛ぶ
  2187.         &case(1):        //売る(1)を選択した時
  2188.             !o(1)j(2)武器屋;j(0)何を売るんだい？:!2
  2189.             &jsr 売る02    //"&label 売る"に飛びます
  2190.             &jmp @b        //１つ前の"&label"に飛ぶ
  2191.         &default:        //やめる(2)を選択、もしくはキャンセルした時
  2192.             !o(1)j(2)武器屋;j(0)ありがとよ;また来ておくれpc
  2193.             S2=0
  2194.             &manmove 2,-2
  2195.     }
  2196.     &&
  2197. &label 買う02
  2198.     &ldef S1
  2199.     &label                //    以下の&jmp @bはここに飛んでくる
  2200.     &if(S2==2){!o(1)j(2)武器屋;j(0)他にはないかい？p}
  2201.     S2=2
  2202.     S1=%shopsel(100)        
  2203.     &switch( S1 ){            //%shopselの戻り値がS1に入っています
  2204.     &default:            //普通に買えた時
  2205.         !o(1)j(2)武器屋;j(0)ありがとよp
  2206.         &jmp @b
  2207.     &case(0):            //買うのを止めた時
  2208.         &break
  2209.     &case(-1):            //お金が足りなかった時
  2210.         !o(1)j(2)武器屋;j(0)悪いんだけど;金が足りないなあp
  2211.         &jmp @b
  2212.     &case(-2):            //アイテムがもう持てない時
  2213.         !o(1)j(2)武器屋;j(0)これ以上荷物を増やしたら歩けなくなるぞp
  2214.         &jmp @b
  2215.     }
  2216.     S2=1
  2217. &rts                    //"&jsr 買う"に帰ります
  2218.  
  2219. &label 売る02
  2220.     &ldef S1
  2221.     &label                //    以下の&jmp @bはここに飛んでくる
  2222.     &if(S2==2){!o(1)j(2)武器屋;j(0)他にはないかい？:!2}
  2223.     S2=2
  2224.     S1=%shopbuy(45)
  2225.     &switch( S1 ){            //%shopbuyの戻り値がS1に入っています
  2226.     &default:            //普通に売れた時
  2227.         !o(1)j(2)武器屋;j(0)ありがとよp
  2228.         &jmp @b
  2229.     &case(0):            //売るのをやめた時
  2230.         &break
  2231.     &case(-1):            //売れないアイテムの時
  2232.         !o(1)j(2)武器屋;j(0)悪いんだけど;これは買い取れないなあp
  2233.         &jmp @b
  2234.     }
  2235.     S2=1
  2236. &rts                    //"&jsr 売る"に帰ります
  2237. //宿屋
  2238. #3    !o(1)j(2)宿屋;j(0)いらっしゃい;
  2239.     !モンスター込みで一泊j(2)６０j(0)Ｇだよp;
  2240.     !g                        //ゴールドウィンドウ表示
  2241.                             //ＹorＮ選択表示
  2242.     &if(%inkeyn==0){                //泊まりたい時
  2243.         &if(%gold>=60){                //所持金が宿代×人数より多い時
  2244.             %gold=%gold-60            //所持金から宿代を引きます
  2245.             !それじゃ、ゆっくりおやすみpc
  2246.             &bgm -1
  2247.             &contrast 0            //暗くする
  2248.             &bgm 6
  2249.             &wait 400            //待つ
  2250.             &complete            //回復
  2251.             &contrast 15            //明るくする
  2252.             &bgm 16
  2253.             !o(1)j(2)宿屋;j(0)おはよう;また、来ておくれpc
  2254.         }&else{                    //所持金が足りない時
  2255.             !お金がなきゃ泊められないねえpc
  2256.         }
  2257.     }&else{                        //泊まりたくない時
  2258.         !そうかい、無理するんじゃないよpc
  2259.     }
  2260.     &manmove 3,-2
  2261. //留守番母さん
  2262. #4    !o(1)j(2)中年;j(0)家の人ったら、子供を連れて闘技場に行ってるの;
  2263.     !たまには私もどこかに連れてってほしいわpc
  2264. //宿屋の客
  2265. #6    &if(滝移動==1){
  2266.         !o(1)j(2)若者;j(0)２回戦敗退;はあ、こいつかなり弱いよw・w・w・pc
  2267.         &&
  2268.     }
  2269.     &if(秘石>=1){
  2270.         !o(1)j(2)若者;j(0)ああ、このモンスターかい;
  2271.         !北にある滝の洞窟で捕まえたんだよpc
  2272.         滝移動=1
  2273.         &if(主人公==0){
  2274.             &monsprint 24,80,少年
  2275.             !o(1)j(2)|(0);j(0)北の滝かあpc
  2276.         }&else{
  2277.             &monsprint 24,80,少女
  2278.             !o(1)j(2)|(0);j(0)滝の洞窟ねpc
  2279.             !o(1)j(2)若者;j(0)この辺りの人たちは、水神の滝って呼んでるよpc
  2280.             &monsprint 24,80,少女
  2281.             !o(1)j(2)|(0);j(0)ふーん、ありがとうpc
  2282.         }
  2283.         &se 2
  2284.         &wait 20
  2285.         !o(1)j(2)水神の滝j(0)に移動可能になりましたpc
  2286.         &&
  2287.     }
  2288.     !o(1)j(2)若者;j(0)さあ、明日はこのモンスターで;一稼ぎするぞおpc
  2289. //モンスター
  2290. #7    !o(1)j(2)モンスター;j(0)ギャウギャウpc
  2291.  
  2292. //博士　　　この人に聞けばモンスターの居場所も一発なのでは・・・？
  2293. //        あとコロシアムの人とか
  2294. #8    !o(1)j(2)博士;j(0)よく来たのう;さて、どうする？p;
  2295.     &if(成長段階1==3 and 成長段階2==3){幻初期化=1}
  2296.     &if(幻初期化==1){
  2297.         %selectlist={幻獣図鑑,幻獣の育て方,幻獣初期化,名前変更}
  2298.     }&else{
  2299.         %selectlist={幻獣図鑑,幻獣の育て方}
  2300.     }
  2301.     選択=%select
  2302.     &switch(選択){
  2303.         &case(-1):&break
  2304.         &case(0):
  2305.             !図鑑を見るんじゃなpc
  2306.             &goto BOOK
  2307.             &break
  2308.         &case(1):
  2309.             !幻獣の育て方？;悪いが、子供の幻獣さえ初めてみたんでちょっとわから;はうっ！pc
  2310.             
  2311.             !o(1)j(2)博士？j(0);幻獣を育てるには、戦闘でモンスターを倒した時にモンスターの肉を
  2312.             !食べさせますp;
  2313.             !モンスターには魔と力の属性があって;魔は魔法に優れ、力は肉弾戦に優れていますp;
  2314.             !そこを考えて幻獣に食事をさせることにより、幻獣も魔と力の属性に分かれ成長していきますp;
  2315.             !はじめの幻獣は弱く、レベルが上がっても戦闘ですぐに気絶してしまいますp;
  2316.             !食事で成長させることにより大幅に強くなり、新たな技や魔法を使えるようになりますp;
  2317.             !幻獣の成長は最高３回までです;p食事モードで表示されるメッセージを参考にしながら、
  2318.             !成長させてみてくださいp;まあ、こんなところでしょうか;p
  2319.             
  2320.             !o(1)j(2)博士j(0);はっ！、わしはいったいw・w・w・pc
  2321.             &break
  2322.         &case(2):
  2323.             !幻獣初期化？;ん、なんの事じゃp;
  2324.             !はうっ！w・w・w・p
  2325.             &jsr 仕事３
  2326.             !o(1)j(2)博士j(0);はっ！、わしはいったいw・w・w・pc
  2327.             &break
  2328.         &case(3):
  2329.             !名前変更？;ん、なんの事じゃp;
  2330.             !はうっ！w・w・w・p
  2331.             &jsr 仕事４
  2332.             !o(1)j(2)博士j(0);はっ！、わしはいったいw・w・w・pc
  2333.             &break
  2334.     }
  2335.     &manmove 8,-2
  2336.     &&
  2337. &label 仕事４
  2338.     !o(1)j(2)博士？j(0);幻獣の名前を変更するんですねp
  2339.     &if(%inkeyn==0){
  2340.         !o(1)どれの名前を変更しますか？;
  2341.         &if(ナカラ==1){
  2342.             !１：j(2)|(1)j(0);２：j(2)|(2)j(0);３：j(2)|(3)j(0)p
  2343.             %selectlist={１,２,３}
  2344.         }&else{
  2345.             !１：j(2)|(1)j(0);２：j(2)|(2)j(0)p
  2346.             %selectlist={１,２}
  2347.         }
  2348.         選択=%select
  2349.         &switch(選択){
  2350.         &case(0):
  2351.             !o(1)j(2)博士？;|(1)j(0)ですね;
  2352.             !それでは、名前を入力して下さいpc
  2353.             &inputpartyname 1
  2354.             &break
  2355.         &case(1):
  2356.             !o(1)j(2)博士？;|(2)j(0)ですね;
  2357.             !それでは、名前を入力して下さいpc
  2358.             &inputpartyname 2
  2359.             &break
  2360.         &case(2):
  2361.             !o(1)j(2)博士？;|(3)j(0)ですね;
  2362.             !それでは、名前を入力して下さいpc
  2363.             &inputpartyname 3
  2364.             &break
  2365.         &default:
  2366.             !o(1)j(2)博士？;j(0)おやめになりますか;
  2367.             !それではまたw・w・w・p
  2368.         }
  2369.     }&else{
  2370.         !;そうですか、それではまたw・w・w・p
  2371.     }
  2372. &rts
  2373. &label 仕事３
  2374.     !o(1)j(2)博士？j(0);幻獣を最初の子供の状態に戻すんですねp
  2375.     &if(%inkeyn==0){
  2376.         !o(1)どちらの幻獣を初期化しますか？;
  2377.         !１：j(2)|(1)j(0);２：j(2)|(2)j(0)p
  2378.         %selectlist={１,２}
  2379.         選択=%select
  2380.         &switch(選択){
  2381.         &case(0):
  2382.             !o(1)j(2)博士？;|(1)j(0)ですね;
  2383.             !それでは、初期化しますpc
  2384.             幻獣1=0                //幻獣１の種類
  2385.             幻魔1=0                //幻獣１の魔の要素
  2386.             幻力1=0                //幻獣１の力の要素
  2387.             成長段階1=0            //幻獣１の成長段階
  2388.             獣=0
  2389.             &jsr 幻獣初期化
  2390.             &break
  2391.         &case(1):
  2392.             !o(1)j(2)博士？;|(2)j(0)ですね;
  2393.             !それでは、初期化しますpc
  2394.             幻獣2=0                //幻獣１の種類
  2395.             幻魔2=0                //幻獣１の魔の要素
  2396.             幻力2=0                //幻獣１の力の要素
  2397.             成長段階2=0            //幻獣１の成長段階
  2398.             獣=1
  2399.             &jsr 幻獣初期化
  2400.             &break
  2401.         &default:
  2402.             !o(1)j(2)博士？;j(0)おやめになりますか;
  2403.             !それではまたw・w・w・p
  2404.         }
  2405.     }&else{
  2406.         !;そうですか、それではまたw・w・w・p
  2407.     }
  2408. &rts
  2409. &label 幻獣初期化
  2410.     %racenamedef(獣+1) = 幻獣
  2411.     %racedef(獣+1) = {        //        レベルアップの時の
  2412.          10, 3,7,    //HP  初期値,最低アップ値,最高アップ値,
  2413.          0, 0,0,    //MP  初期値,最低アップ値,最高アップ値,
  2414.          3, 2,6,    //力  初期値,最低アップ値,最高アップ値,
  2415.          2, 3,5,    //素早さ  初期値,最低アップ値,最高アップ値,
  2416.          1, 1,3,    //器用さ  初期値,最低アップ値,最高アップ値,
  2417.          0,        //属性
  2418.          2        //レベルアップまでの必要経験値
  2419.                 //    (内部にあるテーブル×いくつか)
  2420.     }
  2421.     !w・w・w・初期化しました;
  2422.     %racemagicdef(獣+1) = {0}
  2423.     %racemagiclvldef(獣+1) = {0}
  2424.     %partydef(獣+1) = {$c,2,$A0,獣+1,-1,-1,-1,-1,-1,-1}
  2425.     &on
  2426.     !それではまたw・w・w・p
  2427. &rts
  2428. //マスター
  2429. #9    &if(秘石>0 and 遺跡移動==0){
  2430.         !o(1)j(2)マスター;j(0)北にある遺跡なんかも観光にはいいだろうなp;
  2431.         !でも遺跡の中は、ダンジョンになっていてモンスターがいるんだよpc
  2432.         &if(主人公==0){
  2433.             &monsprint 24,80,少年
  2434.             !o(1)j(2)|(0);j(0)マスター、北の遺跡にモンスターが居るのかpc
  2435.             !o(1)j(2)マスター;j(0)ああ、まさか行く気かいp;
  2436.             !やめといた方がいい;ダンジョンも盗賊避けの仕掛けがされているらしいからなp
  2437.             &monsprint 24,80,少年
  2438.             !o(1)j(2)|(0);j(0)でも、いかなきゃなんないんだ;悪いなpc
  2439.         }&else{
  2440.             &monsprint 24,80,少女
  2441.             !o(1)j(2)|(0);j(0)北の遺跡かあpc
  2442.             !o(1)j(2)マスター;j(0)まさかあんた行く気かいp;
  2443.             &monsprint 24,80,少女
  2444.             !o(1)j(2)|(0);j(0)えっ、まあpc
  2445.             !o(1)j(2)マスター;j(0)女１人で止めた方がいい;ダンジョンも仕掛けだらけだそうだからp
  2446.             &monsprint 24,80,少女
  2447.             !o(1)j(2)|(0);j(0)だいじょうぶ;あたしにはこの子たちがいるからpc
  2448.             !o(1)j(2)|(1)j(0)＆j(2)|(2);j(0)ウピイィーpc
  2449.             !o(1)j(2)マスター;j(0)まあ、無理するんじゃないよp
  2450.         }
  2451.         &manmove 9,-8
  2452.         遺跡移動=1
  2453.         &se 2
  2454.         &wait 20
  2455.         !o(1)j(2)エスバルン遺跡j(0)に移動可能になりましたpc
  2456.         &&
  2457.     }
  2458.     &if(最初==0){
  2459.         !o(1)j(2)マスター;j(0)聖剣？;しらないなあp;
  2460.         !そうだなあ、となりの村でならなにか聞けるかもしれないよpc
  2461.         &manmove 9,-8
  2462.         &&
  2463.     }    
  2464.     !o(1)j(2)マスター;j(0)ここは辺境の町でねえ、活気づけようってことでモンスターコロシアムをつくったんだp;
  2465.     !おかげで、観光客なんかも増えてきたよpc
  2466.     &manmove 9,-8
  2467.     
  2468. //酔っ払いじいさん
  2469. #10    !o(1)j(2)老人;j(0)くそー、あのガーゴイルの野郎;どうして、あそこで飛ばねぇんだよp;
  2470.     !おかげで１０００Ｇすっちまったじゃねえか;くそー、ヤケ酒だあpc
  2471.  
  2472. //酔っ払い
  2473. #11    !o(1)j(2)中年;j(0)いやー、儲かった儲かった;勝利の後の酒はまた格別だpc
  2474. //ウェイトレス
  2475. #12    !o(1)j(2)ウェイトレス;j(0)お客さんたちは、いつもコロシアムの話しばっかしてるんだけど;
  2476.     !そんなに面白いのかしらp;今度のお休みに彼に連れてってもらおうかなpc
  2477. //ナカラ
  2478. #16    &ldef 手
  2479.     &ldef 勝ち数
  2480.     &ldef 負け数
  2481.     
  2482.     &bgm 30
  2483.     !o(1)j(2)|(3);j(0)あたしとジャンケンで勝負しよっ！p
  2484.     &monsprint 32,32,オフ,1
  2485.     &monsprint 48,32,オフ,1
  2486.     &monsprint 64,32,オフ,1
  2487.     &monsprint 80,32,オフ,1
  2488.     &monsprint 96,32,オフ,1
  2489. &label Ｊ
  2490.     !o(1)じゃんwwけんwwポン;
  2491.     %selectlist={グー,チョキ,パー}
  2492. &label    
  2493.     選択=%select
  2494.     &if(選択<0){&jmp @b}
  2495.     手=%rnd(3)        //0:グー,1:チョキ,2:パー
  2496.     !o(1)|(0)：j(2)i(選択+1)　j(0)|(3)：j(2)i(手+1)p;
  2497.     &if(選択==手){
  2498.         !o(1)j(2)|(3);j(0)あいこでwwしょっ;
  2499.         &jmp @b
  2500.     }
  2501.     &switch(選択){
  2502.         &case(0)://グー
  2503.             &if(手==1){&jsr 自分勝ち}
  2504.             &if(手==2){&jsr 相手勝ち}
  2505.             &break
  2506.         &case(1)://チョキ
  2507.             &if(手==2){&jsr 自分勝ち}
  2508.             &if(手==0){&jsr 相手勝ち}
  2509.             &break
  2510.         &case(2)://パー
  2511.             &if(手==0){&jsr 自分勝ち}
  2512.             &if(手==1){&jsr 相手勝ち}
  2513.     }
  2514.     &if(負け数==3){        //３敗したら終わり
  2515.         !o(1)j(2)|(3)j(0);じゃんけん弱いねぇ～p;もっと修行してきたほ～いいよぉpc
  2516.         &monsprint 32,32,消し
  2517.         &bgm 16
  2518.         &bgm 16
  2519.         勝ち数=0
  2520.         負け数=0
  2521.     
  2522.         &&
  2523.     }
  2524.     &if(勝ち数==5){        //５勝したら仲間に
  2525.         !o(1)j(2)|(3)j(0);じゃんけん強いねぇ～p;あたし仲間になったげるよぉpc
  2526.         &monsprint 32,32,消し
  2527.         %manpoint(16)={10000,10000}
  2528.         &partyin 3
  2529.         &on
  2530.         &bgm 25
  2531.         &wait 700
  2532.         !o(1)j(2)|(3)j(0)が仲間になった！pc
  2533.         ナカラ=1
  2534.         &bgm 16
  2535.         &bgm 16
  2536.         &&
  2537.     }
  2538.     &jmp Ｊ
  2539.     &&
  2540. &label 自分勝ち
  2541.     !o(1)j(2)|(3)j(0);う～、負けたぁ～p
  2542.     勝ち数=勝ち数+1
  2543.     &monsprint 16+(16*勝ち数),32,オン,1
  2544. &rts
  2545. &label 相手勝ち
  2546.     負け数=負け数+1
  2547.     !o(1)j(2)|(3)j(0);えへっ、あたしの勝ち～p
  2548. &rts
  2549.  
  2550. //女の子
  2551. #5    !o(1)j(2)子供;j(0)みんなモンスターコロシアムにはまっちゃってp;
  2552.     !w・w・w・バカばっかpc
  2553. //若者（男）
  2554. #13    &if(秘石>=1 and 試合==0){
  2555.         !o(1)j(2)若者;j(0)コロシアムのすべてのクラスを制覇するとＳクラスというのに
  2556.         !出場できるらしいよp;
  2557.         !それで優勝賞品が秘石とかいう石だとかp
  2558.         &if(主人公==0){
  2559.             &monsprint 24,80,少年
  2560.             !o(1)j(2)|(0);j(0)なんだって、コロシアムに秘石がw・w・w・;
  2561.             !いっちょ、コイツらでやってみっかpc
  2562.         }&else{
  2563.             &monsprint 24,80,少女
  2564.             !o(1)j(2)|(0);j(0)Ｓクラスってので優勝しないと秘石はもらえないのかあp;
  2565.             !うーん、あなたたちにがんばってもらわないといけないわねpc
  2566.         }
  2567.         !o(1)j(2)若者;j(0)ほお、まあがんばんなよpc
  2568.         試合=1
  2569.         &se 2
  2570.         &wait 20
  2571.         !o(1)j(2)コロシアムj(0)が利用可能になりましたpc
  2572.         &&
  2573.     }
  2574.     !o(1)j(2)若者;j(0)この町の名物はなんてったってモンスターコロシアムだよpc
  2575.  
  2576. //おばさん
  2577. #20    !o(1)j(2)中年;j(0)空き家の中から、たまに女の子の声がするんだけど;近所の子供かしらpc
  2578. //おばあさん
  2579. #24    &if(%haveitem(セーラー服)==1){
  2580.         !o(1)j(2)老人;j(0)あれは役にたっとるかい;ムフフpc
  2581.         ときめき=ときめき+1
  2582.         &if(ときめき<5){ときめき=5}
  2583.         &manmove 24,-2
  2584.         &&
  2585.     }
  2586.     &if(滝移動==1 and %rasthaveitem>0){
  2587.         !o(1)j(2)老人;j(0)ん、まだなんか用かp;
  2588.         !そうじゃ、これはわしが昔着てたやつじゃが、あんたにやろう;
  2589.         !なんかの役にたつじゃろう;ムフフpc
  2590.         !o(1)j(2)セーラー服j(0)を手に入れた！pc
  2591.         &partyitemin セーラー服
  2592.         &manmove 24,-2
  2593.         &&
  2594.     }
  2595.     &if(秘石>=1){
  2596.         !o(1)j(2)老人;j(0)モンスターの棲みかじゃとp;
  2597.         !そうだねえ、たしか川を上った水神の滝の影に洞窟があったんじゃがpc
  2598.         滝移動=1
  2599.         &manmove 24,-2
  2600.         &se 2
  2601.         &wait 20
  2602.         !o(1)j(2)水神の滝j(0)に移動可能になりましたpc
  2603.         &&
  2604.     }
  2605.     &if(最初==0){
  2606.         !o(1)j(2)老人;j(0)聖剣のう、そういえば聞いたことあったかねえ;
  2607.         !w・w・w・うーん、ちょっと忘れちまったよpc
  2608.         &manmove 24,-2
  2609.         &manmove 24,-2
  2610.         &&
  2611.     }
  2612.     !o(1)j(2)老人;j(0)モンスターコロシアムが出来てから、みんな真面目に働かなくなったねえp;
  2613.     !まったく、バカばっかじゃよpc
  2614.     &manmove 24,-2
  2615. //おじさん
  2616. #25    &if(最初==0){
  2617.         !o(1)j(2)中年;j(0)聖剣？;そういうのは隣村で聞くのが一番だp;
  2618.         !この町の連中はけっこう新しい人間が多いからなpc
  2619.         &&
  2620.     }
  2621.     !o(1)j(2)中年;j(0)コロシアムのモンスターは、この辺にいるのを捕まえてきているそうだよpc
  2622. //記録鶏
  2623. #36    &if(にわ3==1){
  2624.         !o(1)j(2)ジェーン;j(0)やっほー、ご用はなあに？p;
  2625.         &jsr ＳＬ２
  2626.         !o(1)じゃ、バイバイキーンpc
  2627.         &manmove 36,-8
  2628.         &&
  2629.     }&else{
  2630.         にわ3=1
  2631.         !o(1)j(2)ジェーン;j(0)やっほー;あたし、記録鶏のジェーンっていうのp;
  2632.         !あなたの旅の記録をつけたり、前の記録を呼びだしたりできるのp;
  2633.         !超スゴイでしょp;
  2634.         !用がある時はベルかピッチw・w・w・じゃなくて直接あたしに話しかけてねp;
  2635.         !もちろん今すぐでも超オッケーp;
  2636.         &jsr ＳＬ２
  2637.         !o(1)じゃ、バイバイキーンpc
  2638.         &manmove 36,-8
  2639.     }
  2640.     &&
  2641. &label ＳＬ２
  2642.     %selectlist={セーブ,ロード}
  2643.     選択=%select
  2644.     &switch(選択){
  2645.         &case(0):
  2646.             !セーブねp
  2647.             &save 100,56,46,-2
  2648.             &break
  2649.         &case(1):
  2650.             !ロードねp
  2651.             &load 1
  2652.             &break
  2653.         &default:
  2654.             !あっ、そうp
  2655.     }
  2656. &rts
  2657. //ロードはここ
  2658. #100    &bgm 16
  2659.     &bgm 16
  2660.     !o(1)j(2)ジェーン;j(0)あっ、待ってたよ;あたし、超ヒマだったよpc
  2661.  
  2662. //宝箱６（ポーション）            //宝の中身がアイテムの場合
  2663. #26    &if(宝06==0){            //フラグが立っていない（宝をまだ取っていない）時
  2664.         &pcm 2
  2665.         宝=ポーション        //アイテム（宝箱の中身）
  2666.         &jsr 宝箱処理１        //アイテムの場合はこのサブルーチン
  2667.         &if(宝フラグ==1){宝06=1}//アイテムを取ることが出来たら
  2668.     }&else{                //フラグが立っていた（宝を取ってある）時
  2669.         !o(1)からっぽですpc
  2670.     }
  2671. //宝箱７（ポーション）            //宝の中身がアイテムの場合
  2672. #27    &if(宝07==0){            //フラグが立っていない（宝をまだ取っていない）時
  2673.         &pcm 2
  2674.         宝=ポーション        //アイテム（宝箱の中身）
  2675.         &jsr 宝箱処理１        //アイテムの場合はこのサブルーチン
  2676.         &if(宝フラグ==1){宝07=1}//アイテムを取ることが出来たら
  2677.     }&else{                //フラグが立っていた（宝を取ってある）時
  2678.         !o(1)からっぽですpc
  2679.     }
  2680. //宝箱８（ポーション）            //宝の中身がアイテムの場合
  2681. #21    &if(宝08==0){            //フラグが立っていない（宝をまだ取っていない）時
  2682.         &pcm 2
  2683.         宝=ポーション        //アイテム（宝箱の中身）
  2684.         &jsr 宝箱処理１        //アイテムの場合はこのサブルーチン
  2685.         &if(宝フラグ==1){宝08=1}//アイテムを取ることが出来たら
  2686.     }&else{                //フラグが立っていた（宝を取ってある）時
  2687.         !o(1)からっぽですpc
  2688.     }
  2689. //宝箱９（火の石）            //宝の中身がアイテムの場合
  2690. #28    &if(宝09==0){            //フラグが立っていない（宝をまだ取っていない）時
  2691.         &pcm 2
  2692.         宝=火の石            //アイテム（宝箱の中身）
  2693.         &jsr 宝箱処理１        //アイテムの場合はこのサブルーチン
  2694.         &if(宝フラグ==1){宝09=1}//アイテムを取ることが出来たら
  2695.     }&else{                //フラグが立っていた（宝を取ってある）時
  2696.         !o(1)からっぽですpc
  2697.     }
  2698. //宝箱１０（２５０）            //宝の中身がアイテムの場合
  2699. #29    &if(宝10==0){            //フラグが立っていない（宝をまだ取っていない）時
  2700.         &pcm 2
  2701.         金=250            //お金（宝箱の中身）
  2702.         &jsr 宝箱処理２        //アイテムの場合はこのサブルーチン
  2703.         &if(宝フラグ==1){宝10=1}//アイテムを取ることが出来たら
  2704.     }&else{                //フラグが立っていた（宝を取ってある）時
  2705.         !o(1)からっぽですpc
  2706.     }
  2707. //宝箱１１（ハイポーション）        //宝の中身がアイテムの場合
  2708. #30    &if(宝11==0){            //フラグが立っていない（宝をまだ取っていない）時
  2709.         &pcm 2
  2710.         宝=ハイポーション    //アイテム（宝箱の中身）
  2711.         &jsr 宝箱処理１        //アイテムの場合はこのサブルーチン
  2712.         &if(宝フラグ==1){宝11=1}//アイテムを取ることが出来たら
  2713.     }&else{                //フラグが立っていた（宝を取ってある）時
  2714.         !o(1)からっぽですpc
  2715.     }
  2716. //宝箱１２（狼の牙）            //宝の中身がアイテムの場合
  2717. #31    &if(宝12==0){            //フラグが立っていない（宝をまだ取っていない）時
  2718.         &pcm 2
  2719.         宝=狼の牙        //アイテム（宝箱の中身）
  2720.         &jsr 宝箱処理１        //アイテムの場合はこのサブルーチン
  2721.         &if(宝フラグ==1){宝12=1}//アイテムを取ることが出来たら
  2722.     }&else{                //フラグが立っていた（宝を取ってある）時
  2723.         !o(1)からっぽですpc
  2724.     }
  2725. //以下、家具類
  2726. #14
  2727. #15
  2728. #17
  2729. #18
  2730. #19
  2731. #21
  2732. #22
  2733. #23
  2734. #28
  2735. #29
  2736. #30
  2737. #31
  2738. #32
  2739. #33
  2740. #34
  2741. #35
  2742. #38
  2743. #39
  2744. //▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
  2745.  
  2746.     [BOOK]                    //図鑑
  2747.  
  2748. //    ■■■■　　■■■■■　■■■■■　■　　　■
  2749. //    ■　　　■　■　　　■　■　　　■　■　　■
  2750. //    ■■■■　　■　　　■　■　　　■　■　■
  2751. //    ■　　　■　■　　　■　■　　　■　■■　■
  2752. //    ■■■■　　■■■■■　■■■■■　■　　　■
  2753.  
  2754. //▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
  2755.     &map MAP\BOOK.MAP
  2756.     &mapsp PTN\BOOK.SP
  2757.     &mappal PTN\BOOK.PAL
  2758.     &commenu 0
  2759.     %partypoint={27,16,8}
  2760.     &partyset 8
  2761.     &partyspeed 2
  2762.     &ldef しおり
  2763.     &on
  2764.     本の中=1
  2765.     &if(あいさつ==0){
  2766.         あいさつ=1
  2767.         !o(1)　ようこそ幻獣図鑑へ;ここでは登場した幻獣のグラフィックや設定等をご覧になれます;p
  2768.         !j(2)幻獣設定資料集j(0)みたいなかんじかなw・w・w・p
  2769.         !o(1)　操作は４つのアイコン上でボタンを押すことによって行われますp;
  2770.         !左のアイコンで前のページへ戻り;右のアイコンで先のページに進みますp;
  2771.         !上のアイコンで現ページの幻獣の設定を読むことができます;
  2772.         !下のアイコンで幻獣図鑑を終了しますp
  2773.         !o(1)　ゲーム中にまだ登場してこない幻獣のグラフィックや設定は見ることができませんp;
  2774.         !全１５体と少なくさらにダメダメですが;まあ、おまけだと思って我慢してやって下さいp;
  2775.         !それではどうぞpc
  2776.     }&else{
  2777.         !o(1)　ようこそ幻獣図鑑へ;操作は上で読む;左・右で次へ;下で終了ですpc
  2778.     }
  2779.     &monsprint 0,64,げん00
  2780. //読む
  2781. #@1    &if(%direc>0){
  2782.         &pcm 10
  2783.         &jsr 図鑑読む
  2784.         &jsr 図鑑見る
  2785.     }
  2786. //戻る
  2787. #@2    &if(%direc>0){
  2788.         &pcm 10
  2789.         &monsprint 0,0,消し,2
  2790.         &monsprint 0,128,消し,2
  2791.         &if(しおり==0){しおり=14}
  2792.         しおり=しおり-1
  2793.         &jsr 図鑑見る
  2794.     }
  2795. //進む
  2796. #@3    &if(%direc>0){
  2797.         &pcm 10
  2798.         &monsprint 0,0,消し,2
  2799.         &monsprint 0,128,消し,2
  2800.         しおり=しおり+1
  2801.         &if(しおり==14){しおり=0}
  2802.         &jsr 図鑑見る
  2803.     }
  2804. //終了
  2805. #@4    &if(%direc>0){
  2806.         &pcm 10
  2807.         !o(1)終了しますpc
  2808.         &partyspeed 速度
  2809.         &if(ナカラ==1){
  2810.             &partyset 0,1,2,3
  2811.         }&else{
  2812.             &partyset 0,1,2
  2813.         }
  2814.         &goto2 MATI,@10,-8
  2815.     }
  2816.     &&
  2817. &label 図鑑見る
  2818.     &switch(しおり){
  2819.         &case(0):
  2820.             &monsprint 0,64,げん00
  2821.             &break
  2822.         &case(1):
  2823.             &if(本01==1){
  2824.                 &monsprint 0,64,げん01
  2825.             }
  2826.             &break
  2827.         &case(2):
  2828.             &if(本02==1){
  2829.                 &monsprint 0,64,げん02
  2830.             }
  2831.             &break
  2832.         &case(3):
  2833.             &if(本03==1){
  2834.                 &monsprint 0,64,げん03A
  2835.                 &monsprint 0,48,げん03B
  2836.             }
  2837.             &break
  2838.         &case(4):
  2839.             &if(本04==1){
  2840.                 &monsprint 0,64,げん04A
  2841.                 &monsprint 0,31,げん04B
  2842.             }
  2843.             &break
  2844.         &case(5):
  2845.             &if(本05==1){
  2846.                 &monsprint 0,64,げん05A
  2847.                 &monsprint 0,13,げん05B
  2848.             }
  2849.             &break
  2850.         &case(6):
  2851.             &if(本06==1){
  2852.                 &monsprint 0,64,げん06
  2853.             }
  2854.             &break
  2855.         &case(7):
  2856.             &if(本07==1){
  2857.                 &monsprint 0,128,げん07A
  2858.                 &monsprint 0,0,げん07B
  2859.             }
  2860.             &break
  2861.         &case(8):
  2862.             &if(本08==1){
  2863.                 &monsprint 0,128,げん08A
  2864.                 &monsprint 0,0,げん08B
  2865.             }
  2866.             &break
  2867.         &case(9):
  2868.             &if(本09==1){
  2869.                 &monsprint 0,128,げん09A
  2870.                 &monsprint 0,25,げん09B
  2871.             }
  2872.             &break
  2873.         &case(10):
  2874.             &if(本10==1){
  2875.                 &monsprint 0,64,げん10A
  2876.                 &monsprint 0,11,げん10B
  2877.             }
  2878.             &break
  2879.         &case(11):
  2880.             &if(本11==1){
  2881.                 &monsprint 0,128,げん11A
  2882.                 &monsprint 0,0,げん11B
  2883.             }
  2884.             &break
  2885.         &case(12):
  2886.             &if(本12==1){
  2887.                 &monsprint 0,100,げん12A
  2888.                 &monsprint 0,19,げん12B
  2889.             }
  2890.             &break
  2891.         &case(13):
  2892.             &if(本13==1){
  2893.                 &monsprint 0,128,げん13A
  2894.                 &monsprint 0,0,げん13B
  2895.             }
  2896.             &break
  2897.         &case(14):
  2898.             &if(本14==1){
  2899.                 &monsprint 0,128,げん14A
  2900.                 &monsprint 0,0,げん14B
  2901.             }
  2902.             &break
  2903.         //変獣用（時間があったら）
  2904.         &case(15):
  2905.             &if(本15==1){
  2906.                 &monsprint 0,64,げん01
  2907.             }
  2908.             &break
  2909.         &case(16):
  2910.             &if(本16==1){
  2911.                 &monsprint 0,64,げん01
  2912.             }
  2913.             &break
  2914.         &case(17):
  2915.             &if(本17==1){
  2916.                 &monsprint 0,64,げん01
  2917.             }
  2918.     }
  2919. &rts
  2920. &label 図鑑読む
  2921.     &switch(しおり){
  2922.         &case(0):
  2923.             !o(1)　初期段階の幻獣ですp:属性：？p
  2924.             !o(1)特殊能力;無しp
  2925.             !o(1)デザイン？;お母さん幻獣の形態に少し似せて、ちょっとかわいく不気味に？pc
  2926.             &break
  2927.         &case(1):
  2928.             &jsr 読む01
  2929.             &break
  2930.         &case(2):
  2931.             &jsr 読む02
  2932.             &break
  2933.         &case(3):
  2934.             &jsr 読む03
  2935.             &break
  2936.         &case(4):
  2937.             &jsr 読む04
  2938.             &break
  2939.         &case(5):
  2940.             &jsr 読む05
  2941.             &break
  2942.         &case(6):
  2943.             &jsr 読む06
  2944.             &break
  2945.         &case(7):
  2946.             &jsr 読む07
  2947.             &break
  2948.         &case(8):
  2949.             &jsr 読む08
  2950.             &break
  2951.         &case(9):
  2952.             &jsr 読む09
  2953.             &break
  2954.         &case(10):
  2955.             &jsr 読む10
  2956.             &break
  2957.         &case(11):
  2958.             &jsr 読む11
  2959.             &break
  2960.         &case(12):
  2961.             &jsr 読む12
  2962.             &break
  2963.         &case(13):
  2964.             &jsr 読む13
  2965.             &break
  2966.         &case(14):
  2967.             &jsr 読む14
  2968.             &break
  2969.         
  2970.         //変獣用（時間があったら）
  2971.         &case(15):
  2972.             &jsr 読む15
  2973.             &break
  2974.         &case(16):
  2975.             &jsr 読む16
  2976.             &break
  2977.         &case(17):
  2978.             &jsr 読む17
  2979.             &break
  2980.     }
  2981. &rts
  2982. &label 読む01
  2983.     &if(本01==1){
  2984.         !o(1)第２段階の幻獣ですp:属性：力p
  2985.         !o(1)特殊能力;ひっかき、かみつきp
  2986.         !o(1)デザイン？;赤ちゃん幻獣の形態を継承しつつ、より雑魚モンスター的にpc
  2987.     }&else{
  2988.         !o(1)まだ登録されていませんpc
  2989.     }
  2990. &rts
  2991. &label 読む02
  2992.     &if(本02==1){
  2993.         !o(1)第２段階の幻獣ですp:属性：魔p
  2994.         !o(1)特殊能力;ケア１、アイスp
  2995.         !o(1)デザイン？;ホントはヤリを持ってました;怒ると花が咲く？pc
  2996.     }&else{
  2997.         !o(1)まだ登録されていませんpc
  2998.     }
  2999. &rts
  3000. &label 読む03
  3001.     &if(本03==1){
  3002.         !o(1)第３段階の幻獣ですp:属性：力・力p
  3003.         !o(1)特殊能力;ひっかき、かみつき、ぶんなぐり、トゲしっぽp
  3004.         !o(1)デザイン？;赤ちゃん幻獣の形態を継承しつつ、ワイルドなトゲしっぽに？pc
  3005.     }&else{
  3006.         !o(1)まだ登録されていませんpc
  3007.     }
  3008. &rts
  3009. &label 読む04
  3010.     &if(本04==1){
  3011.         !o(1)第３段階の幻獣ですp:属性：力・魔p
  3012.         !o(1)特殊能力;ひっかき、かみつき、ケア１、アイス、怪電波p
  3013.         !o(1)デザイン？;うーん、戦闘員pc
  3014.     }&else{
  3015.         !o(1)まだ登録されていませんpc
  3016.     }
  3017. &rts
  3018. &label 読む05
  3019.     &if(本05==1){
  3020.         !o(1)第３段階の幻獣ですp:属性：魔・力p
  3021.         !o(1)特殊能力;ケア１、アイス、ファイア、ケア２、連続バサミp
  3022.         !o(1)デザイン？;角じゃなくて木が生えてるのpc
  3023.     }&else{
  3024.         !o(1)まだ登録されていませんpc
  3025.     }
  3026. &rts
  3027. &label 読む06
  3028.     &if(本06==1){
  3029.         !o(1)第３段階の幻獣ですp:属性：魔・魔p
  3030.         !o(1)特殊能力;ケア１、アイス、ケア２、フリーズ、フレイム、消化液p
  3031.         !o(1)デザイン？;ウツボカズラかなpc
  3032.     }&else{
  3033.         !o(1)まだ登録されていませんpc
  3034.     }
  3035. &rts
  3036. &label 読む07
  3037.     &if(本07==1){
  3038.         !o(1)第４段階の幻獣ですp:属性：力・力・力p
  3039.         !o(1)特殊能力;ひっかき、かみつき、ぶんなぐり、ふみつぶし、鬼なぐりp
  3040.         !o(1)デザイン？;赤鬼さんのようにpc
  3041.     }&else{
  3042.         !o(1)まだ登録されていませんpc
  3043.     }
  3044. &rts
  3045. &label 読む08
  3046.     &if(本08==1){
  3047.         !o(1)第４段階の幻獣ですp:属性：力・力・魔p
  3048.         !o(1)特殊能力;ひっかき、かみつき、ケア１、突き刺し、ぶんなぐり、地獄刺しp
  3049.         !o(1)デザイン？;うーん、シャキーンという感じpc
  3050.     }&else{
  3051.         !o(1)まだ登録されていませんpc
  3052.     }
  3053. &rts
  3054. &label 読む09
  3055.     &if(本09==1){
  3056.         !o(1)第４段階の幻獣ですp:属性：力・魔・力p
  3057.         !o(1)特殊能力;ひっかき、かみつき、ケア１、アイス、死の視線、死の接吻、カオスp
  3058.         !o(1)デザイン？;魔王的なイメージの１つを弱くした感じです（？）pc
  3059.     }&else{
  3060.         !o(1)まだ登録されていませんpc
  3061.     }
  3062. &rts
  3063. &label 読む10
  3064.     &if(本10==1){
  3065.         !o(1)第４段階の幻獣ですp:属性：力・魔・魔p
  3066.         !o(1)特殊能力;ひっかき、かみつき、ケア１、アイス、ケア２、フリーズ、ネコキックp
  3067.         !o(1)デザイン？;こういうのもいないとダメかなと思ったんで強引に;格好がダサイpc
  3068.     }&else{
  3069.         !o(1)まだ登録されていませんpc
  3070.     }
  3071. &rts
  3072. &label 読む11
  3073.     &if(本11==1){
  3074.         !o(1)第４段階の幻獣ですp:属性：魔・力・力p
  3075.         !o(1)特殊能力;ケア１、アイス、ファイア、ケア２、フレイム、ぶったギリp
  3076.         !o(1)デザイン？;着ぐるみ包丁pc
  3077.     }&else{
  3078.         !o(1)まだ登録されていませんpc
  3079.     }
  3080. &rts
  3081. &label 読む12
  3082.     &if(本12==1){
  3083.         !o(1)第４段階の幻獣ですp:属性：魔・力・魔p
  3084.         !o(1)特殊能力;ケア１、アイス、ファイア、ケア２、フリーズ、フレイム、巻きつきp
  3085.         !o(1)デザイン？;ちょっと実体がないようなのを欲しかったので、ちょっとだけかすれてるpc
  3086.     }&else{
  3087.         !o(1)まだ登録されていませんpc
  3088.     }
  3089. &rts
  3090. &label 読む13
  3091.     &if(本13==1){
  3092.         !o(1)第４段階の幻獣ですp:属性：魔・魔・力p
  3093.         !o(1)特殊能力;ケア１、アイス、ケア２、フリーズ、フレイム、クエイク、ブリザード、怪光線p
  3094.         !o(1)デザイン？;なんかみんな角ばっかだなあと思いました;ダメだなあpc
  3095.     }&else{
  3096.         !o(1)まだ登録されていませんpc
  3097.     }
  3098. &rts
  3099. &label 読む14
  3100.     &if(本14==1){
  3101.         !o(1)第４段階の幻獣ですp:属性：魔・魔・魔p
  3102.         !o(1)特殊能力;ケア１、アイス、ケア２、フリーズ、フレイム、ブリザード、ケア３、ブレイズ、メテオ、デスp
  3103.         !o(1)デザイン？;直立できないでしょ;これで魔の最高なの？pc
  3104.     }&else{
  3105.         !o(1)まだ登録されていませんpc
  3106.     }
  3107. &rts
  3108. //時間があったらね
  3109. &label 読む15
  3110.     &if(本15==1){
  3111.         !o(1)　第２段階の幻獣ですp;力の属性が強くなっていますp;
  3112.         !赤ちゃん幻獣の形態を継承しつつpc
  3113.     }&else{
  3114.         !o(1)まだ登録されていませんpc
  3115.     }
  3116. &rts
  3117. &label 読む16
  3118.     &if(本16==1){
  3119.         !o(1)　第２段階の幻獣ですp;力の属性が強くなっていますp;
  3120.         !赤ちゃん幻獣の形態を継承しつつpc
  3121.     }&else{
  3122.         !o(1)まだ登録されていませんpc
  3123.     }
  3124. &rts
  3125. &label 読む17
  3126.     &if(本17==1){
  3127.         !o(1)　第２段階の幻獣ですp;力の属性が強くなっていますp;
  3128.         !赤ちゃん幻獣の形態を継承しつつpc
  3129.     }&else{
  3130.         !o(1)まだ登録されていませんpc
  3131.     }
  3132. &rts
  3133. //▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
  3134.  
  3135.     [COR]                    //コロシアム
  3136.  
  3137. //    ■■■■■　■■■■■　■■■■
  3138. //    ■　　　　　■　　　■　■　　　■
  3139. //    ■　　　　　■　　　■　■■■■
  3140. //    ■　　　　　■　　　■　■　　　■
  3141. //    ■■■■■　■■■■■　■　　　■
  3142.  
  3143. //▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
  3144.     &bgm 19
  3145.     &sppsp PTN\COR.SPP
  3146.     &map MAP\COR.MAP
  3147.     %partypoint={19,37,8}
  3148.     &partyspeed 速度
  3149.     &commenu 1
  3150.  
  3151. //マンイベント定義(PAL,BANK,SP,方向,動き(-1:静止,0:足踏み,1以上:乱移動 大きいほど遅い))
  3152.     %mandef(1)={$3,0,$00,2,0}        //柵
  3153.     %mandef(2)={$3,0,$00,2,0}        //柵
  3154.     %mandef(3)={$c,0,$20,8,0}        //受付（一般）
  3155.     %mandef(4)={$c,0,$20,8,0}        //受付（出場）
  3156.     &if(%rnd(2)==1){
  3157.     %mandef(5)={$c,0,$40,6,1}        //モンスター
  3158.     }&else{
  3159.     %mandef(5)={$b,0,$60,6,1}        //モンスター
  3160.     }
  3161.     &if(%rnd(2)==1){
  3162.     %mandef(6)={$c,0,$80,4,2}        //モンスター
  3163.     }&else{
  3164.     %mandef(6)={$f,0,$A0,4,2}        //モンスター
  3165.     }
  3166.     
  3167.     %mandef(8)={$a,1,$00,8,0}        //オヤジ
  3168.     %mandef(9)={$a,1,$80,4,0}        //親
  3169.     %mandef(10)={$b,1,$A0,4,0}        //　子
  3170.     %mandef(11)={$a,1,$60,6,0}        //おばちゃん
  3171.     %mandef(12)={$a,1,$20,8,0}        //彼氏
  3172.     %mandef(13)={$c,0,$E0,8,0}        //用心棒
  3173.     %mandef(14)={$c,0,$E0,8,0}        //用心棒
  3174.     %mandef(15)={$a,1,$40,6,2}        //彼女
  3175.     %mandef(16)={$b,1,$20,2,1}        //若男
  3176.     %mandef(17)={$a,1,$40,4,0}        //おねえさん
  3177.     %mandef(18)={$a,1,$80,2,0}        //おじさん
  3178.     %mandef(19)={$c,1,$00,2,0}        //じいさん
  3179.     %mandef(20)={$a,1,$20,8,0}        //若男
  3180.     %mandef(21)={$c,0,$C0,8,0}        //説明の人
  3181.  
  3182.     コロ中=1
  3183. #@0    &if(%direc<0){
  3184.         &partyspeed 2
  3185.         &goto2 MATI,39,53,2
  3186.     }
  3187.  
  3188. #1    //柵
  3189. #2    //柵
  3190. //受付（一般）
  3191. #3    &if(%py>10){
  3192.         !o(1)j(2)受付;j(0)試合に賭けますか？p
  3193.     &if(試合==0){
  3194.         &if(主人公==0){
  3195.             &monsprint 24,80,少年
  3196.             !o(1)j(2)|(0);j(0)（こんなのことしてる場合じゃないぞ）;いや、やめとくよpc
  3197.         }&else{
  3198.             &monsprint 24,80,少女
  3199.             !o(1)j(2)|(0);j(0)（早く聖剣の情報を集めなきゃ）;ううん、違うのpc
  3200.         }
  3201.     !o(1)j(2)受付;j(0)またどうぞpc
  3202.     &manmove 4,-8
  3203.     &&
  3204.     }    
  3205.     &if(%inkeyn==0){
  3206.         !o(1)j(2)受付;j(0)どのモンスターに賭けますか？p
  3207.         %selectlist={バグベア×５,モスマン×３,シルフ×２,ゴブリン×１．８,サキュバス×１．５,リザードマン×１．２}
  3208.         選択=%select
  3209.         &switch(選択){
  3210.             &case(0):
  3211.                 魔券=選択
  3212.                 !;倍率５倍のj(2)バグベアj(0)ですねp
  3213.                 ＰＸ=20
  3214.                 &jsr 一般
  3215.                 &break
  3216.             &case(1):
  3217.                 魔券=選択
  3218.                 !;倍率３倍のj(2)モスマンj(0)ですねp
  3219.                 ＰＸ=70
  3220.                 &jsr 一般
  3221.                 &break
  3222.             &case(2):
  3223.                 魔券=選択
  3224.                 !;倍率２倍のj(2)シルフj(0)ですねp
  3225.                 ＰＸ=110
  3226.                 &jsr 一般
  3227.                 &break
  3228.             &case(3):
  3229.                 魔券=選択
  3230.                 !;倍率１．８倍のj(2)ゴブリンj(0)ですねp
  3231.                 ＰＸ=150
  3232.                 &jsr 一般
  3233.                 &break
  3234.             &case(4):
  3235.                 魔券=選択
  3236.                 !;倍率１．５倍のj(2)サキュバスj(0)ですねp
  3237.                 ＰＸ=175
  3238.                 &jsr 一般
  3239.                 &break
  3240.             &case(5):
  3241.                 魔券=選択
  3242.                 !;倍率１．２倍のj(2)リザードマンj(0)ですねp
  3243.                 ＰＸ=230
  3244.                 &jsr 一般
  3245.                 &break
  3246.             &default:
  3247.                 !;おやめるなりますかp
  3248.         }
  3249.     }
  3250.     !o(1)j(2)受付;j(0)またどうぞpc
  3251.     }&else{
  3252.         !o(1)j(2)受付;j(0)すいませんが、カウンターの方からおねがいしますpc
  3253.     }
  3254.     &manmove 3,-8
  3255.     
  3256. //受付（出場）
  3257. #4    &if(%py>10){
  3258.     !o(1)j(2)受付;j(0)試合に出場なされますか？p
  3259.     &if(試合==0){
  3260.         &if(主人公==0){
  3261.             &monsprint 24,80,少年
  3262.             !o(1)j(2)|(0);j(0)（こんなのに出てる場合じゃないぞ）;いや、やめとくよpc
  3263.         }&else{
  3264.             &monsprint 24,80,少女
  3265.             !o(1)j(2)|(0);j(0)（早く聖剣の情報を集めなきゃ）;いえ、違うのpc
  3266.         }
  3267.     !o(1)j(2)受付;j(0)またどうぞpc
  3268.     &manmove 4,-8
  3269.     &&
  3270.     }    
  3271.     &if(%inkeyn==0){
  3272.         !o(1)j(2)受付;j(0)どのクラスに出場なされますか？p
  3273.         &if(Ｃ優勝==1 and Ｂ優勝==1 and Ａ優勝==1){
  3274.             %selectlist={Ｃクラス,Ｂクラス,Ａクラス,Ｓクラス}
  3275.             //%selectlist={Ｃクラス：５００Ｇ,Ｂクラス：１０００Ｇ,Ａクラス：３０００Ｇ,Ｓクラス：５０００Ｇ}
  3276.         }&else{
  3277.             %selectlist={Ｃクラス,Ｂクラス,Ａクラス}
  3278.             //%selectlist={Ｃクラス：５００Ｇ,Ｂクラス：１０００Ｇ,Ａクラス：３０００Ｇ}
  3279.         }
  3280.         選択=%select
  3281.         &switch(選択){
  3282.             &case(0):
  3283.                 !;Ｃクラスですねp
  3284.                 //!;Ｃクラスですね;出場料がj(2)５００j(0)Ｇになりますp
  3285.                 //出場料=500
  3286.                 クラス=0
  3287.                 &jsr 出場
  3288.                 &break
  3289.             &case(1):
  3290.                 !;Ｂクラスですねp
  3291.                 //出場料=1000
  3292.                 クラス=1
  3293.                 &jsr 出場
  3294.                 &break
  3295.             &case(2):
  3296.                 !;Ａクラスですねp
  3297.                 //出場料=3000
  3298.                 クラス=2
  3299.                 &jsr 出場
  3300.                 &break
  3301.             &case(3):
  3302.                 !;Ｓクラスですねp
  3303.                 //出場料=5000
  3304.                 クラス=3
  3305.                 &jsr 出場
  3306.                 &break
  3307.             &default:
  3308.                 !;おやめになりますかp
  3309.         }
  3310.     }
  3311.         !o(1)j(2)受付;j(0)またどうぞpc
  3312.     }&else{
  3313.         !o(1)j(2)受付;j(0)すいませんが、カウンターの方からおねがいしますpc
  3314.     }
  3315.     &manmove 4,-8
  3316. //オヤジ
  3317. #8    !o(1)j(2)老人;j(0)うふぉ、うふぉ;今日も儲けたぞpc
  3318.     &manmove 8,-8
  3319. //親
  3320. #9    !o(1)j(2)父親;j(0)子供と一緒に来たんですよ;
  3321.     !子供も大喜びで、家内も一緒に来れば良かったのにpc
  3322.     &manmove 9,-4
  3323. //子
  3324. #10    !o(1)j(2)子供;j(0)わーい、わーい;モンスターだあpc
  3325.     &manmove 10,-4
  3326. //おばちゃん
  3327. #11    !o(1)j(2)中年;j(0)家事なんかほったらかしだわpc
  3328.     &manmove 11,-6
  3329. //彼氏
  3330. #12    !o(1)j(2)若者;j(0)コロシアム最高ッス;彼女と一緒にきたんだけど試合に燃えちゃってるッスpc
  3331.     &manmove 12,-8
  3332. //彼女
  3333. #15    !o(1)j(2)若者;j(0)彼と一緒に来たんだけど;彼、はまっちゃってw・w・w・pc
  3334. //若男
  3335. #16    !o(1)j(2)若者;j(0)これだけのモンスターを捕まえられるということは;
  3336.     !コロシアム側にはよっぽど強い戦士が付いているんだろうなpc
  3337. //おねえさん
  3338. #17    !o(1)j(2)若者;j(0)キィ────ッ！;また、負けたわp;
  3339.     !とりあえず今負けた分を取りかえすまでは帰らないわよpc
  3340.     &manmove 17,-4
  3341. //おじさん
  3342. #18
  3343.     &if(試合==1){
  3344.         !o(1)j(2)中年;j(0)あんたもモンスターを試合に出すのかい、まあがんばんなよpc
  3345.         &manmove 18,-2
  3346.         &&
  3347.     }    
  3348.     &if(秘石>=1){
  3349.         !o(1)j(2)中年;j(0)Ｓクラスの優勝賞品は秘石とかいう石らしいぞ;
  3350.         !なんでもモンスターを捕まえてた戦士がモンスターから奪ったそうだpc
  3351.         &if(主人公==0){
  3352.             &monsprint 24,80,少年
  3353.             !o(1)j(2)|(0);j(0)なんだって、ここに秘石がw・w・w・;
  3354.             !いっちょ、コイツらでやってみっかpc
  3355.         }&else{
  3356.             &monsprint 24,80,少女
  3357.             !o(1)j(2)|(0);j(0)Ｓクラスってので優勝しないと秘石はもらえないのかあp;
  3358.             !うーん、あなたたちにがんばってもらわないといけないわねpc
  3359.         }
  3360.         &manmove 18,-2
  3361.         試合=1
  3362.         &se 2
  3363.         &wait 20
  3364.         !o(1)j(2)コロシアムj(0)が利用可能になりましたpc
  3365.         &&
  3366.     }
  3367.     !o(1)j(2)中年;j(0)すべてのクラスを制覇するとＳクラスってのに出場できるらしいぞpc
  3368.     &manmove 18,-2
  3369. //おじいさん
  3370. #19    !o(1)j(2)老人;j(0)いやあ、まったく楽しい娯楽ができたもんじゃのうpc
  3371.     &manmove 19,-2
  3372. //若男
  3373. #20    &if(秘石>=1){
  3374.         !o(1)j(2)若者;j(0)Ｓクラスの最後の相手はこのコロシアムが誇る戦士らしいよp;
  3375.         !コロシアムのモンスターも全部、彼が捕まえたんだそうだよpc
  3376.         &&
  3377.     }
  3378.     !o(1)j(2)若者;j(0)俺もモンスターを調教して試合に出したいなあpc
  3379.     &manmove 20,-8
  3380. //用心棒
  3381. #13    !o(1)j(2)用心棒;j(0)ん、ここは関係者以外立入禁止だpc
  3382.     &manmove 13,-8
  3383. //用心棒
  3384. #14    !o(1)j(2)用心棒;j(0)ん、ここは競技参加者の控え室になってるんだpc
  3385.     &manmove 14,-8
  3386. #21    !o(1)j(2)オーナー;j(0)ようこそ、我がモンスターコロシアムへp;
  3387.     !ここでは、モンスター同士の闘いに金を賭けたり;自分のモンスターを闘わせたりできるんだp;
  3388.     !o(1)　もっと、聞きたいかい？p;
  3389.     &if(%inkeyn==1){
  3390.         !そうかい、それじゃあなpc
  3391.         &manmove 21,-8
  3392.         &&
  3393.     }
  3394.     !o(1)　おお、そうかいp;それでなあ、モンスター同士の闘いに金を賭ける時は左の受付カウンターだp;
  3395.     !６匹のモンスターがいっぺんに闘って、自分の賭けたモンスターが勝てば賞金が貰えるってわけだp;
  3396.     !賞金はそのモンスターの倍率で変わるんだ;まあ、倍率の高いモンスターほど勝ちにくいんだけ
  3397.     !どなp
  3398.     !o(1)　もっと、聞きたいかい？p;
  3399.     &if(%inkeyn==1){
  3400.         !そうかい、それじゃあなpc
  3401.         &manmove 21,-8
  3402.         &&
  3403.     }
  3404.     !o(1)　おお、そうかいp;あとなあ、自分のモンスターを闘わせる時は右の受付カウンターだp;
  3405.     !３つのクラスから出場したいクラスを選ぶんだ;Ｃクラスが１番下のクラスだp;
  3406.     //!出場料が掛かるんだが、これはうちのモンスターを使っておるんでな、
  3407.     //!怪我した時の治療費なんで、勘弁してくれp;
  3408.     //!まあ、でも勝ち続ければ賞金も出るしね;p
  3409.     !それで各クラスとも６匹のモンスターと
  3410.     !順に闘って最後まで勝ったら、スゴイ賞品が貰えるってわけさp;全クラスを制覇するとw・w・w・
  3411.     !おっとっと、これは後のお楽しみp;そう、賞品はいつも同じってわけじゃないんだp;
  3412.     !o(1)　最後まで聞いてくれてありがとう;それじゃ、楽しんでってくれp;
  3413.     &if(%rasthaveitem>0){
  3414.         !そうだ、あんたにこれをやろうp
  3415.         !o(1)j(2)ポーションj(0)を手に入れた！p
  3416.         &partyitemin ポーション
  3417.     }
  3418.     !c
  3419.     &manmove 21,-8
  3420.  
  3421. //▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
  3422.  
  3423.     [DUN1]                    //アロンゲルスの洞窟
  3424.  
  3425. //    ■■■■　　■　　　■　■　　　■　　■
  3426. //    ■　　　■　■　　　■　■■　　■　■■
  3427. //    ■　　　■　■　　　■　■　■　■　　■
  3428. //    ■　　　■　■　　　■　■　　■■　　■
  3429. //    ■■■■　　　■■■　　■　　　■　■■■
  3430.  
  3431. //▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
  3432.  
  3433.     &bgm 14
  3434. //    &bgm 14
  3435.     &map MAP\DUN1.MAP
  3436.     &sppsp PTN\DUN.SPP
  3437.     &mapsp PTN\DUN1.SP
  3438.     &if(開通==1){
  3439.         &mappal PTN\DUN1B.PAL
  3440.     }&else{
  3441.         &mappal PTN\DUN1A.PAL
  3442.     }
  3443.     //%partypoint={175,95,8}
  3444.     %partypoint={28,84,8}
  3445.     &partyspeed Ｄ速度
  3446.     &if(洞窟の中==0){
  3447.     &if(ナカラ==1){
  3448.         &partyset 0,1,2,3
  3449.     }&else{
  3450.         &partyset 0,1,2
  3451.     }
  3452.     }
  3453.     &commenu 1
  3454. //    %bcirclesize=80
  3455. //    &blackcircle 1
  3456. //マンイベント定義(PAL,BANK,SP,方向,動き(-1:静止,0:足踏み,1以上:乱移動 大きいほど遅い))
  3457.     &if(開通==0){
  3458.     %mandef(1)={$1,0,$20,4,-1}        //カベ
  3459.     %mandef(2)={$1,0,$20,4,-1}        //カベ
  3460.     %mandef(3)={$1,0,$20,2,-1}        //カベ
  3461.     %mandef(4)={$1,0,$20,2,-1}        //カベ
  3462.     %mandef(5)={$1,0,$20,4,-1}        //カベ
  3463.     %mandef(6)={$1,0,$20,4,-1}        //カベ
  3464.     %mandef(7)={$1,0,$20,2,-1}        //カベ
  3465.     %mandef(8)={$1,0,$20,2,-1}        //カベ
  3466.     %mandef(9)={$7,1,$80,2,-1}        //秘石
  3467.     }&else{
  3468.     %mandef(9)={$7,1,$80,4,-1}        //秘石
  3469.     }
  3470.     &if(ケル死<2){
  3471.     &if(ケル死==0){
  3472.     %mandef(19)={$5,0,$40,2,0}        //ケルベロス
  3473.     %mandef(20)={$5,0,$60,2,0}        //ケルベロス
  3474.     敵出=100
  3475.     }&else{
  3476.     %mandef(19)={$5,0,$80,2,-1}    //ケルベロス
  3477.     %mandef(20)={$5,0,$A0,2,-1}    //ケルベロス
  3478.     %manpoint(19)={138,160}
  3479.     %manpoint(20)={140,160}
  3480.     敵出=70
  3481.     }
  3482.     }
  3483. //魔竜
  3484.     %mandef(23)={$5,1,$20,2,0}    //魔竜
  3485.     %mandef(24)={$5,1,$20,4,0}    //魔竜
  3486.     %mandef(25)={$5,1,$20,6,0}    //魔竜
  3487.     %mandef(26)={$5,1,$20,8,0}    //魔竜
  3488.     %mandef(27)={$5,1,$40,2,0}    //魔竜
  3489.     %mandef(28)={$5,1,$40,4,0}    //魔竜
  3490.     %mandef(29)={$5,1,$40,6,0}    //魔竜
  3491.     %mandef(30)={$5,1,$40,8,0}    //魔竜
  3492.     %mandef(31)={$5,1,$60,2,0}    //魔竜
  3493.     %mandef(32)={$5,1,$60,4,0}    //魔竜
  3494. //ウキョヒント
  3495.     &if(ヒント==0){    
  3496.     %mandef(34)={$A,1,$A0,8,0}        //ウキョ
  3497.     }
  3498.  
  3499. //セーブ＆回復鶏
  3500.     %mandef(16)={$A,1,$E0,4,0}        //鶏
  3501.  
  3502. //空っぽ宝箱
  3503.     %mandef(11)={$3,0,$00,2,-1}        //お宝（閉じ）
  3504.     %mandef(15)={$3,0,$00,4,-1}        //お宝（開き）
  3505. //モンスター入り宝箱
  3506.     %mandef(12)={$3,0,$00,2,-1}        //お宝（閉じ）
  3507.     %mandef(17)={$3,0,$00,2,-1}        //お宝（閉じ）
  3508. //お宝
  3509.     &if(宝13==0){
  3510.         %mandef(10)={$3,0,$00,2,-1}        //お宝（閉じ）
  3511.     }&else{
  3512.         %mandef(10)={$3,0,$00,4,-1}        //お宝（開き）
  3513.     }
  3514.     &if(宝14==0){
  3515.         %mandef(13)={$3,0,$00,2,-1}        //お宝（閉じ）
  3516.     }&else{
  3517.         %mandef(13)={$3,0,$00,4,-1}        //お宝（開き）
  3518.     }
  3519.     &if(宝15==0){
  3520.         %mandef(14)={$3,0,$00,2,-1}        //お宝（閉じ）
  3521.     }&else{
  3522.         %mandef(14)={$3,0,$00,4,-1}        //お宝（開き）
  3523.     }
  3524.     &if(宝16==0){
  3525.         %mandef(18)={$3,0,$00,2,-1}        //お宝（閉じ）
  3526.     }&else{
  3527.         %mandef(18)={$3,0,$00,4,-1}        //お宝（開き）
  3528.     }
  3529.     &if(宝17==0){
  3530.         %mandef(21)={$3,0,$00,2,-1}        //お宝（閉じ）
  3531.     }&else{
  3532.         %mandef(21)={$3,0,$00,4,-1}        //お宝（開き）
  3533.     }
  3534.     &if(宝18==0){
  3535.         %mandef(22)={$3,0,$00,2,-1}        //お宝（閉じ）
  3536.     }&else{
  3537.         %mandef(22)={$3,0,$00,4,-1}        //お宝（開き）
  3538.     }
  3539.  
  3540.     &jsr 巨大化
  3541.     洞窟の中=1
  3542.     
  3543.     &if(地名表示==0){
  3544.         &monsprint 44,100,Ｍ７,1
  3545.         &monsprint 128,100,Ｍ８,1
  3546.         &wait 100
  3547.         &monsprint 44,100,消し
  3548.         &monsprint 128,100,消し
  3549.     }
  3550.  
  3551. //移動イベント
  3552. #@0    &if(%direc<0){
  3553.         洞窟の中=0
  3554.         &goto2 FIELD,4,12,2
  3555.     }
  3556. #@1    &if(%direc<0){
  3557.         &if(%py<88){
  3558.             &move 5,93,2
  3559.         }&else{
  3560.             &move 13,15,2
  3561.         }
  3562.     }
  3563. #@2    &if(%direc<0){
  3564.         &if(%py<88){
  3565.             &move 63,101,2
  3566.         }&else{
  3567.             &move 63,7,2
  3568.         }
  3569.     }
  3570. #@3    &if(%direc<0){
  3571.         &if(%px<50){
  3572.             &move 139,93,2
  3573.         }&else{
  3574.             &move 35,97,2
  3575.         }
  3576.     }
  3577. #@4    &if(%direc<0){
  3578.         &if(%px<160){
  3579.             &move 174,179,8
  3580.         }&else{
  3581.             &move 137,119,2
  3582.         }
  3583.     }
  3584. #@5    &if(%direc<0){
  3585.         &if(%py<88){
  3586.             &blackcircle 1
  3587.             &move 175,95,2
  3588.         }&else{
  3589.             &bgm 35
  3590.             &blackcircle 0
  3591.             &move 102,51,8
  3592.             &partymove 8,8,8,8,8,8,8
  3593.             &wait 100
  3594.         &if(主人公==0){
  3595.             &monsprint 24,80,少年
  3596.             !o(1)j(2)|(0);j(0)こ、こいつが魔竜アロンゲルス！pc
  3597.             !o(1)j(2)アロンゲルス;j(0)人間よ;我が下僕を倒し、この聖剣を奪いに来たのか？p
  3598.             &monsprint 24,80,少年
  3599.             !o(1)j(2)|(0);j(0)そうだっ、てめえもぶった切って聖剣を頂いてくぜ！pc
  3600.             !o(1)j(2)アロンゲルス;j(0)そうか、我に挑むわけだな;おもしろい相手をしてやろうp
  3601.             &monsprint 24,80,少年
  3602.             !o(1)j(2)|(0);j(0)どりゃ───っ！p
  3603.         }&else{
  3604.             &monsprint 24,80,少女
  3605.             !o(1)j(2)|(0);j(0)こっ、これが魔竜アロンゲルスなのっ！pc
  3606.             !o(1)j(2)アロンゲルス;j(0)人間よ;我が下僕を倒し、この聖剣を奪いに来たのか？p
  3607.             &monsprint 24,80,少女
  3608.             !o(1)j(2)|(0);j(0)そ、そうよ;その聖剣を手に入れるのが私の任務だものp;
  3609.             !それに、あんたなんかに世界を無くされたりなんかさせないんだからっ！pc
  3610.             !o(1)j(2)アロンゲルス;j(0)そうか、我に挑むわけだな;おもしろい相手をしてやろうp
  3611.             &monsprint 24,80,少女
  3612.             !o(1)j(2)|(0);j(0)くっ、行くわよっ！p
  3613.         }
  3614.             &partymove 8,8,8,8,8
  3615.             !c
  3616.             &se 22
  3617.             &battle $1000,13,アロンゲルス,1,0,0,0,0
  3618.             &if(%gold<0){%gold=32767}
  3619.             &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  3620.             !o(1)j(2)アロンゲルス;j(0)ぐわっ;w・w・w・我が魂、聖剣に宿り永遠なりっpc
  3621.             &bgm -1
  3622.             %manpoint(23)={1000,1000}
  3623.             %manpoint(24)={1000,1000}
  3624.             %manpoint(25)={1000,1000}
  3625.             %manpoint(26)={1000,1000}
  3626.             %manpoint(27)={1000,1000}
  3627.             %manpoint(28)={1000,1000}
  3628.             %manpoint(29)={1000,1000}
  3629.             %manpoint(30)={1000,1000}
  3630.             %manpoint(31)={1000,1000}
  3631.             %manpoint(32)={1000,1000}
  3632.             %mandef(33)={$5,1,$00,4,0}    //聖剣
  3633.             %manpoint(33)={102,33}
  3634.             &pcm 12
  3635.             &on
  3636.         &if(主人公==0){
  3637.             &monsprint 24,80,少年
  3638.             !o(1)j(2)|(0);j(0)や、やったw・w・w・p;
  3639.             &partymove 8,8,8
  3640.             !これが聖剣か、これでやっと帰れるぜp;
  3641.             &partymove -2
  3642.             !はっ、お前らもけっこう役にたったなp;
  3643.             !さて、さっさと聖剣を持って帰るかpc
  3644.             &partymove -8
  3645.         }&else{
  3646.             &monsprint 24,80,少女
  3647.             !o(1)j(2)|(0);j(0)た、倒したのね;あたし魔竜をw・w・w・p;
  3648.             &partymove 8,8,8
  3649.             !これが聖剣ね、これで任務完了ねp;
  3650.             &partymove -2
  3651.             !あなたたちもご苦労様p;
  3652.             !さあ、聖剣を持って国に帰ろうpc
  3653.             &partymove -8
  3654.         }
  3655.             &contrast 0
  3656.             &wait 100
  3657.             &goto END
  3658.         }
  3659.     }
  3660.  
  3661. //ケルベロスと戦闘
  3662. #@6    &if(%direc<0){
  3663.         &if(ケル死==0){
  3664.         &if(主人公==0){
  3665.             &monsprint 24,80,少年
  3666.             !o(1)j(2)|(0);j(0)な、なんだありゃ;
  3667.             !あんなのがいるなんて聞いてないぞっpc
  3668.         }&else{
  3669.             &monsprint 24,80,少女
  3670.             !o(1)j(2)|(0);j(0)えっ、なによっ！;
  3671.             !こんなのがいるなんて聞いてないわよっ！pc
  3672.         }
  3673.         &manmove 19,-4
  3674.         &manmove 20,-4
  3675.         &on
  3676.         &if(主人公==0){
  3677.             &monsprint 24,80,少年
  3678.             !o(1)j(2)|(0);j(0)げっ、おこしちまったw・w・w・pc
  3679.         }&else{
  3680.             &monsprint 24,80,少女
  3681.             !o(1)j(2)|(0);j(0)あっ、おきちゃうw・w・w・pc
  3682.         }
  3683.         &manmove 19,-6
  3684.         &manmove 20,-6
  3685.         &manmove 19,-8
  3686.         &manmove 20,-8
  3687.         !o(1)j(2)ケルベロス;j(0)我、魔竜アロンゲルスの命により;
  3688.         !この地を守護する者、ケルベロスなりp;
  3689.         !この地を汚す者、そして我が眠りを邪魔する者生かすまじpc
  3690.         &if(主人公==0){
  3691.             &monsprint 24,80,少年
  3692.             !o(1)j(2)|(0);j(0)ちっ、きやがれっ！pc
  3693.         }&else{
  3694.             &monsprint 24,80,少女
  3695.             !o(1)j(2)|(0);j(0)やっぱり、戦うはめになるのねpc
  3696.         }
  3697.         魔=3
  3698.         力=5
  3699.         &se 22
  3700.         &battle $1000,15,ケルベロス,1,0,0,0,0
  3701.         &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  3702.         %mandef(19)={$5,0,$80,2,-1}    //ケルベロス
  3703.         %mandef(20)={$5,0,$A0,2,-1}    //ケルベロス
  3704.         %manpoint(19)={138,160}
  3705.         %manpoint(20)={140,160}
  3706.         &move 137,164,8
  3707.         &on
  3708.         &manmove 19,-2
  3709.         &manmove 20,-2
  3710.         !o(1)j(2)ケルベロス;j(0)グオォォー;このケルベロスがやられるとはw・w・w・p;
  3711.         !しかし、これ以上先には進むことは出来んぞ;５つの秘石を揃えなければなw・w・w・p;
  3712.         !その秘石も我が同胞たちの手の中だp;
  3713.         !さあ、秘石を求め;我が同胞に殺されるがよいw・w・w・グハッpc
  3714.         !o(1)ケルベロスの口からj(2)秘石j(0)が出てきたp;
  3715.         &bgm 24
  3716.         &wait 780
  3717.         &bgm 14
  3718.         !j(2)第１の秘石j(0)を手に入れた！pc
  3719.         秘石=秘石+1
  3720.         
  3721.         &jsr 食事
  3722.         &if(主人公==0){
  3723.             &monsprint 24,80,少年
  3724.             !o(1)j(2)|(0);j(0)秘石？p;とにかく、聖剣を手に入れるためにも
  3725.             !そいつをさっさと５つ集めなきゃなんないなp;こいつの仲間が持ってるってことは;
  3726.             !片っ端からモンスターの居る場所を調べてみるしかないなpc
  3727.         }&else{
  3728.             &monsprint 24,80,少女
  3729.             !o(1)j(2)|(0);j(0)秘石かあp;とにかく、急いで集めなきゃ;
  3730.             !でも、どこにあるのかしらp;モンスターが持ってるのは確かなわけだから、
  3731.             !モンスターの居る場所を探さなきゃpc
  3732.         }
  3733.         ケル死=1
  3734.         言い伝え=3
  3735.         %systime=0
  3736.         }
  3737.     }
  3738. //ウキョヒント
  3739. #@20    &if(%direc<0){
  3740.         &if(ヒント==0){
  3741.         ヒント=1
  3742.         &manmove 34,4,4,4,4,4,4,4,4
  3743.         %manpoint(34)={1000,1000}
  3744.         &on
  3745.         }
  3746.     }
  3747. //壁
  3748. #1
  3749. #2
  3750. #3
  3751. #4
  3752. #5
  3753. #6
  3754. #7
  3755. #8
  3756.  
  3757. //秘石の石台
  3758. #9    &if(開通==1){
  3759.         !o(1)石の台の穴には秘石がはまっているpc
  3760.     }
  3761.     &if(秘石==5 and 開通==0){
  3762.         &if(主人公==0){
  3763.             &monsprint 24,80,少年
  3764.             !o(1)j(2)|(0);j(0)よしっ、ここに秘石をはめればいいんだなpc
  3765.         }&else{
  3766.             &monsprint 24,80,少女
  3767.             !o(1)j(2)|(0);j(0)この穴に秘石を入れればいいのねpc
  3768.         }
  3769.         %mandef(9)={$7,1,$80,4,0}        //秘石
  3770.         &on
  3771.         &manmove 9,-4
  3772.         !o(1)秘石を５つの穴にはめ込んだpc
  3773.         &pcm 1
  3774.         &manmove 9,-6,-8
  3775.         
  3776.         &wait 150
  3777.         
  3778.         &pcm 4
  3779.         %manpoint(1)={1000,1000}
  3780.         &on
  3781.         
  3782.         &wait 20
  3783.         
  3784.         &pcm 4
  3785.         %manpoint(3)={1000,1000}
  3786.         &on
  3787.         
  3788.         &wait 20
  3789.     
  3790.         &pcm 4
  3791.         %manpoint(5)={1000,1000}
  3792.         &on
  3793.         
  3794.         &wait 20
  3795.         
  3796.         &pcm 4
  3797.         %manpoint(7)={1000,1000}
  3798.         &on
  3799.         
  3800.         &wait 20
  3801.         
  3802.         &pcm 4
  3803.         %manpoint(2)={1000,1000}
  3804.         &on
  3805.         
  3806.         &wait 20
  3807.         
  3808.         &pcm 4
  3809.         %manpoint(4)={1000,1000}
  3810.         &on
  3811.         
  3812.         &wait 20
  3813.         
  3814.         &pcm 4
  3815.         %manpoint(6)={1000,1000}
  3816.         &on
  3817.         
  3818.         &wait 20
  3819.         
  3820.         &pcm 4
  3821.         %manpoint(8)={1000,1000}
  3822.         &on
  3823.         
  3824.         &mappal PTN\DUN1B.PAL
  3825.         開通=1
  3826.         &manmove 9,-6,-4
  3827.         %mandef(9)={$7,1,$80,4,-1}        //秘石
  3828.         &on
  3829.             &partymove -8
  3830.         &if(主人公==0){
  3831.             &monsprint 24,80,少年
  3832.             !o(1)j(2)|(0);j(0)よしっ;さて、行くかw・w・w・pc
  3833.             !o(1)j(2)ケルベロス;j(0)w・w・w・待てぇ、そお易々と
  3834.             !アロンゲルス様の元へ行かせるものかあw・w・w・p
  3835.             &partymove -2
  3836.             &monsprint 24,80,少年
  3837.             !o(1)j(2)|(0);j(0)けっ、まだ生きてたかしぶといやろうだpc
  3838.         }&else{
  3839.             &monsprint 24,80,少女
  3840.             !o(1)j(2)|(0);j(0)わっ、びっくりしたあ;w・w・w・いよいよねpc
  3841.             !o(1)j(2)ケルベロス;j(0)w・w・w・待てぇ、そう易々と
  3842.             !アロンゲルス様の元へ行かせるものかあw・w・w・p
  3843.             &partymove -2
  3844.             &monsprint 24,80,少女
  3845.             !o(1)j(2)|(0);j(0)う、うそーっ！;まだ生きてたの！pc
  3846.         }
  3847.         &se 22
  3848.         &battle $1000,15,ケルベロスＺ,1,0,0,0,0
  3849.         &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  3850.         !o(1)j(2)ケルベロス;j(0)グオォォー;２度もやられるとはw・w・w・p;
  3851.         魔=6
  3852.         力=8
  3853.         &jsr 食事
  3854.         %manpoint(19)={500,500}
  3855.         %manpoint(20)={500,500}
  3856.         &on
  3857.         ケル死=2
  3858.         %systime=0
  3859.     }&else{
  3860.         !o(1)石の台に５つの穴が開いているpc
  3861.     }
  3862. //セーブ＆回復鶏
  3863. #16    &if(にわ4==0){
  3864.         にわ4=1
  3865.         !o(1)j(2)ジュリアj(0);こんにちわ;あたしセーブ＆回復鶏のジュリアでーす;
  3866.         !どうしますー？p;
  3867.     }&else{
  3868.         !o(1)j(2)ジュリアj(0);どうしますー？p;
  3869.     }
  3870.     %selectlist={セーブ,回復}
  3871.     選択=%select
  3872.     &switch(選択){
  3873.         &case(0):
  3874.             !セーブするのねp
  3875.             &save 100,41,104,-6
  3876.             &break
  3877.         &case(1):
  3878.             !回復するのねp
  3879.             &se 26
  3880.             &freash $003E
  3881.             &wait 50
  3882.             &complete
  3883.             &break
  3884.         &default:
  3885.             !ふーん、そうp
  3886.     }
  3887.     !o(1)j(2)ジュリアj(0);それじゃあ、またねーpc
  3888.     &manmove 16,-4
  3889. //ロードはここ
  3890. #100    !o(1)j(2)ジュリア;j(0)おかえりなさーい;それじゃあ、がんばってねpc
  3891.  
  3892. //空っぽ宝箱
  3893. #11    &pcm 2
  3894.     &jsr 宝箱処理３
  3895. #15    !o(1)からっぽですpc
  3896.  
  3897. //モンスター入り宝箱
  3898. #12    %mandef(%manno)={$3,0,$00,2,0}
  3899.     &on
  3900.     &pcm 2
  3901.     &manmove %manno,-4
  3902.     !o(1)宝箱からモンスターが現れた！pc
  3903.     魔=-1
  3904.     力=1
  3905.     &se 22
  3906.     &battle $1000,15,グール,3,0,0,0,0
  3907.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  3908.     &if(絶食==0){
  3909.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  3910.     }
  3911.     %systime=0
  3912.     &manmove %manno,-2
  3913.     %mandef(%manno)={$3,0,$00,2,-1}
  3914.     &on
  3915. #17    %mandef(%manno)={$3,0,$00,2,0}
  3916.     &on
  3917.     &pcm 2
  3918.     &manmove %manno,-4
  3919.     !o(1)宝箱からモンスターが現れた！pc
  3920.     魔=-2
  3921.     力=2
  3922.     &se 22
  3923.     &battle $1000,15,バグベア,2,0,0,0,0
  3924.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  3925.     &if(絶食==0){
  3926.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  3927.     }
  3928.     %systime=0
  3929.     &manmove %manno,-2
  3930.     %mandef(%manno)={$3,0,$00,2,-1}
  3931.     &on
  3932. //宝箱１３（ハイポーション）        //宝の中身がアイテムの場合
  3933. #10    &if(宝13==0){            //フラグが立っていない（宝をまだ取っていない）時
  3934.         &pcm 2
  3935.         宝=ハイポーション    //アイテム（宝箱の中身）
  3936.         &jsr 宝箱処理１        //アイテムの場合はこのサブルーチン
  3937.         &if(宝フラグ==1){宝13=1}//アイテムを取ることが出来たら
  3938.     }&else{                //フラグが立っていた（宝を取ってある）時
  3939.         !o(1)からっぽですpc
  3940.     }
  3941. //宝箱１４（獅子の牙）            //宝の中身がアイテムの場合
  3942. #13    &if(宝14==0){            //フラグが立っていない（宝をまだ取っていない）時
  3943.         &pcm 2
  3944.         宝=獅子の牙        //アイテム（宝箱の中身）
  3945.         &jsr 宝箱処理１        //アイテムの場合はこのサブルーチン
  3946.         &if(宝フラグ==1){宝14=1}//アイテムを取ることが出来たら
  3947.     }&else{                //フラグが立っていた（宝を取ってある）時
  3948.         !o(1)からっぽですpc
  3949.     }
  3950. //宝箱１５（金塊）            //宝の中身がアイテムの場合
  3951. #14    &if(宝15==0){            //フラグが立っていない（宝をまだ取っていない）時
  3952.         &pcm 2
  3953.         宝=金塊            //アイテム（宝箱の中身）
  3954.         &jsr 宝箱処理１        //アイテムの場合はこのサブルーチン
  3955.         &if(宝フラグ==1){宝15=1}//アイテムを取ることが出来たら
  3956.     }&else{                //フラグが立っていた（宝を取ってある）時
  3957.         !o(1)からっぽですpc
  3958.     }
  3959. //宝箱１６（赤の魔石）            //宝の中身がアイテムの場合
  3960. #18    &if(宝16==0){            //フラグが立っていない（宝をまだ取っていない）時
  3961.         &pcm 2
  3962.         宝=赤の魔石        //アイテム（宝箱の中身）
  3963.         &jsr 宝箱処理１        //アイテムの場合はこのサブルーチン
  3964.         &if(宝フラグ==1){宝16=1}//アイテムを取ることが出来たら
  3965.     }&else{                //フラグが立っていた（宝を取ってある）時
  3966.         !o(1)からっぽですpc
  3967.     }
  3968. //宝箱１７（）                //宝の中身がアイテムの場合
  3969. #21    &if(宝17==0){            //フラグが立っていない（宝をまだ取っていない）時
  3970.         &pcm 2
  3971.         &if(主人公==0){
  3972.             宝=グラムソード    //アイテム（宝箱の中身）
  3973.         }&else{
  3974.             宝=魔王の牙    //アイテム（宝箱の中身）
  3975.         }
  3976.         &jsr 宝箱処理１        //アイテムの場合はこのサブルーチン
  3977.         &if(宝フラグ==1){宝17=1}//アイテムを取ることが出来たら
  3978.     }&else{                //フラグが立っていた（宝を取ってある）時
  3979.         !o(1)からっぽですpc
  3980.     }
  3981. //宝箱１８（黒の魔石）            //宝の中身がアイテムの場合
  3982. #22    &if(宝18==0){            //フラグが立っていない（宝をまだ取っていない）時
  3983.         &pcm 2
  3984.         宝=黒の魔石        //アイテム（宝箱の中身）
  3985.         &jsr 宝箱処理１        //アイテムの場合はこのサブルーチン
  3986.         &if(宝フラグ==1){宝18=1}//アイテムを取ることが出来たら
  3987.     }&else{                //フラグが立っていた（宝を取ってある）時
  3988.         !o(1)からっぽですpc
  3989.     }
  3990.  
  3991. //ケルベロス
  3992. #19    !o(1)ケルベロスの死体ですpc
  3993. #20    &link 19
  3994.  
  3995. //戦闘イベント
  3996. #@47    &if(%direc>=0){&&}        //ｲﾍﾞﾝﾄ上、ｲﾍﾞﾝﾄに向かってﾎﾞﾀﾝが押されたら処理中断
  3997.     &if(%rnd(100)>8){&&}        //乱数が8より大きければ処理中断
  3998.     &if(%systime<敵出){&&}        //前回の戦闘から40ターン経っていなければ処理中断
  3999.     &if(もん==1){&&}        //でばぐ
  4000.     所持金=%gold
  4001.     &if(秘石<3){
  4002.         &switch(%rnd(2)){
  4003.             &case(0):
  4004.                 魔物=グール
  4005.                 魔物数=1
  4006.                 魔=-1
  4007.                 力=1
  4008.                 &break
  4009.             &case(1):
  4010.                 魔物=バグベア
  4011.                 魔物数=1
  4012.                 魔=-2
  4013.                 力=2
  4014.         }
  4015.     }&else{
  4016.         &switch(%rnd(2)){
  4017.             &case(0):
  4018.                 魔物=グール
  4019.                 魔物数=5
  4020.                 魔=-1
  4021.                 力=1
  4022.                 &break
  4023.             &case(1):
  4024.                 魔物=バグベア
  4025.                 魔物数=6
  4026.                 魔=-2
  4027.                 力=2
  4028.         }
  4029.     }
  4030.     &se 22
  4031.     &battle 0,15,魔物,魔物数,0,0,0,0
  4032.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  4033.     &if(絶食==0){
  4034.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  4035.     }
  4036.     %systime=0
  4037. #@48    &if(%direc>=0){&&}        //ｲﾍﾞﾝﾄ上、ｲﾍﾞﾝﾄに向かってﾎﾞﾀﾝが押されたら処理中断
  4038.     &if(%rnd(100)>8){&&}        //乱数が8より大きければ処理中断
  4039.     &if(%systime<敵出){&&}        //前回の戦闘から40ターン経っていなければ処理中断
  4040.     &if(もん==1){&&}        //でばぐ
  4041.     所持金=%gold
  4042.     &if(秘石<3){
  4043.         &switch(%rnd(2)){
  4044.             &case(0):
  4045.                 魔物=グール
  4046.                 魔物数=%rnd(2)+1
  4047.                 魔=-1
  4048.                 力=1
  4049.                 &break
  4050.             &case(1):
  4051.                 魔物=バグベア
  4052.                 魔物数=%rnd(2)+1
  4053.                 魔=-2
  4054.                 力=2
  4055.         }
  4056.     }&else{
  4057.         &switch(%rnd(2)){
  4058.             &case(0):
  4059.                 魔物=サキュバス
  4060.                 魔物数=%rnd(2)+1
  4061.                 魔=3
  4062.                 力=2
  4063.                 &break
  4064.             &case(1):
  4065.                 魔物=イフリート
  4066.                 魔物数=%rnd(2)+1
  4067.                 魔=2
  4068.                 力=4
  4069.         }
  4070.     }
  4071.     &se 22
  4072.     &battle 0,15,魔物,魔物数,0,0,0,0
  4073.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  4074.     &if(絶食==0){
  4075.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  4076.     }
  4077.     %systime=0
  4078. #@49    &if(%direc>=0){&&}        //ｲﾍﾞﾝﾄ上、ｲﾍﾞﾝﾄに向かってﾎﾞﾀﾝが押されたら処理中断
  4079.     &if(%rnd(100)>8){&&}        //乱数が8より大きければ処理中断
  4080.     &if(%systime<敵出){&&}        //前回の戦闘から10ターン経っていなければ処理中断
  4081.     &if(もん==1){&&}        //でばぐ
  4082.     所持金=%gold
  4083.     &if(秘石<3){
  4084.         &switch(%rnd(2)){
  4085.             &case(0):
  4086.                 魔物=グール
  4087.                 魔物数=%rnd(2)+1
  4088.                 魔=-1
  4089.                 力=1
  4090.                 &break
  4091.             &case(1):
  4092.                 魔物=バグベア
  4093.                 魔物数=%rnd(2)+1
  4094.                 魔=-2
  4095.                 力=2
  4096.         }
  4097.     }&else{
  4098.         &switch(%rnd(2)){
  4099.             &case(0):
  4100.                 魔物=イフリート
  4101.                 魔物数=%rnd(3)+1
  4102.                 魔=2
  4103.                 力=4
  4104.                 &break
  4105.             &case(1):
  4106.                 魔物=ワイバーン
  4107.                 魔物数=2
  4108.                 魔=3
  4109.                 力=5
  4110.         }
  4111.     }
  4112.     &se 22
  4113.     &battle 0,15,魔物,魔物数,0,0,0,0
  4114.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  4115.     &if(絶食==0){
  4116.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  4117.     }
  4118.     %systime=0
  4119. #@45    &if(%direc>=0){&&}        //ｲﾍﾞﾝﾄ上、ｲﾍﾞﾝﾄに向かってﾎﾞﾀﾝが押されたら処理中断
  4120.     &if(%rnd(100)>8){&&}        //乱数が8より大きければ処理中断
  4121.     &if(%systime<50){&&}        //前回の戦闘から10ターン経っていなければ処理中断
  4122.     &if(もん==1){&&}        //でばぐ
  4123.     所持金=%gold
  4124.         &switch(%rnd(5)){
  4125.             &case(0):
  4126.                 魔物=ケルベロスＣ
  4127.                 魔物数=1
  4128.                 魔=0
  4129.                 力=2
  4130.                 &break
  4131.             &case(1):
  4132.                 魔物=ナーガＣ
  4133.                 魔物数=1
  4134.                 魔=2
  4135.                 力=2
  4136.                 &break
  4137.             &case(2):
  4138.                 魔物=ミノタウロスＣ
  4139.                 魔物数=1
  4140.                 魔=0
  4141.                 力=5
  4142.                 &break
  4143.             &case(3):
  4144.                 魔物=タロスＣ
  4145.                 魔物数=1
  4146.                 魔=2
  4147.                 力=7
  4148.                 &break
  4149.             &case(4):
  4150.                 魔物=ケルベロスＺＣ
  4151.                 魔物数=1
  4152.                 魔=3
  4153.                 力=5
  4154.         }
  4155.     &se 22
  4156.     &battle 0,15,魔物,魔物数,0,0,0,0
  4157.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  4158.     &if(絶食==0){
  4159.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  4160.     }
  4161.     %systime=0
  4162. &&
  4163. &label 死亡
  4164.     &bgm 18
  4165.     !o(0):j(1)w・w・w・w　ＧＡＭＥ　ＯＶＥＲ　w・w・w・wwwwpc
  4166.     &bgm -1
  4167.     &load
  4168.     &reset
  4169.  
  4170. //▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
  4171.  
  4172.     [TAKI]                    //水神の滝
  4173.  
  4174. //    ■■■■■　　　■　　　■　　　■　■
  4175. //    　　■　　　　■　■　　■　　■　　■
  4176. //    　　■　　　■　　　■　■　■　　　■
  4177. //    　　■　　　■■■■■　■■　■　　■
  4178. //    　　■　　　■　　　■　■　　　■　■
  4179.  
  4180. //▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
  4181.     &map MAP\TAKI.MAP
  4182.     &mapsp PTN\TAKI.SP
  4183.     &mappal PTN\TAKI.PAL
  4184.     %partypoint={2,21,6}
  4185.     &if(ナカラ==1){
  4186.         &partyset 0,1,2,3
  4187.     }&else{
  4188.         &partyset 0,1,2
  4189.     }
  4190.     &if(滝内==0){
  4191.     //    &bgm 17
  4192.         &bgm 17
  4193.     }
  4194.     &partyspeed Ｄ速度
  4195.     &commenu 1
  4196.     &jsr 巨大化
  4197.     &if(地名表示==0 and 滝内==0){
  4198.         &monsprint 44,100,Ｍ１１,1
  4199.         &monsprint 128,100,Ｍ１２,1
  4200.         &wait 100
  4201.         &monsprint 44,100,消し
  4202.         &monsprint 128,100,消し
  4203.     }
  4204. #@0    &if(%direc<0){
  4205.         滝内=0
  4206.         &goto2 FIELD,18,4,2
  4207.     }
  4208. #@1    &if(%direc<0){
  4209.         滝内=1
  4210.         &goto DUN2
  4211.     }
  4212. //▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
  4213.  
  4214.     [DUN2]                    //滝の洞窟
  4215.  
  4216. //    ■■■■　　■　　　■　■　　　■　　■■■
  4217. //    ■　　　■　■　　　■　■■　　■　■　　　■
  4218. //    ■　　　■　■　　　■　■　■　■　　　■■
  4219. //    ■　　　■　■　　　■　■　　■■　　■
  4220. //    ■■■■　　　■■■　　■　　　■　■■■■■
  4221.  
  4222. //▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
  4223.     &map MAP\DUN2.MAP
  4224.     &sppsp PTN\DUN.SPP
  4225.     &mapsp PTN\DUN2.SP
  4226.     &mappal PTN\DUN2.PAL
  4227.     %partypoint={27,196,8}
  4228.     &partyspeed Ｄ速度
  4229. //    %bcirclesize=80
  4230. //    &blackcircle 1
  4231.  
  4232.     &if(ナーガ死==0){
  4233.     %mandef(1)={$5,0,$C0,2,0}        //ナーガ
  4234.     %mandef(2)={$5,0,$E0,2,0}        //ナーガ
  4235.     }
  4236.  
  4237. //セーブ＆回復鶏
  4238.     %mandef(20)={$A,1,$E0,2,0}        //鶏
  4239.  
  4240. //空っぽ宝箱
  4241.     %mandef(3)={$3,0,$00,2,-1}        //お宝（閉じ）
  4242.     %mandef(9)={$3,0,$00,2,-1}        //お宝（閉じ）
  4243.     %mandef(13)={$3,0,$00,4,-1}        //お宝（開き）
  4244. //モンスター入り宝箱
  4245.     %mandef(7)={$3,0,$00,2,-1}        //お宝（閉じ）
  4246.     %mandef(10)={$3,0,$00,2,-1}        //お宝（閉じ）
  4247.     %mandef(14)={$3,0,$00,2,-1}        //お宝（閉じ）
  4248. //お宝
  4249.     &if(宝19==0){
  4250.         %mandef(4)={$3,0,$00,2,-1}        //お宝（閉じ）
  4251.     }&else{
  4252.         %mandef(4)={$3,0,$00,4,-1}        //お宝（開き）
  4253.     }
  4254.     &if(宝20==0){
  4255.         %mandef(5)={$3,0,$00,2,-1}        //お宝（閉じ）
  4256.     }&else{
  4257.         %mandef(5)={$3,0,$00,4,-1}        //お宝（開き）
  4258.     }
  4259.     &if(宝21==0){
  4260.         %mandef(6)={$3,0,$00,2,-1}        //お宝（閉じ）
  4261.     }&else{
  4262.         %mandef(6)={$3,0,$00,4,-1}        //お宝（開き）
  4263.     }
  4264.     &if(宝22==0){
  4265.         %mandef(8)={$3,0,$00,2,-1}        //お宝（閉じ）
  4266.     }&else{
  4267.         %mandef(8)={$3,0,$00,4,-1}        //お宝（開き）
  4268.     }
  4269.     &if(宝23==0){
  4270.         %mandef(11)={$3,0,$00,2,-1}        //お宝（閉じ）
  4271.     }&else{
  4272.         %mandef(11)={$3,0,$00,4,-1}        //お宝（開き）
  4273.     }
  4274.     &if(宝24==0){
  4275.         %mandef(12)={$3,0,$00,2,-1}        //お宝（閉じ）
  4276.     }&else{
  4277.         %mandef(12)={$3,0,$00,4,-1}        //お宝（開き）
  4278.     }
  4279.  
  4280. //移動イベント
  4281. #@0    &if(%direc<0){&goto2 TAKI,14,20,2}
  4282. #@1    &if(%direc<0){
  4283.         &if(%px<50){
  4284.             &move 67,185,8
  4285.         }&else{
  4286.             &move 41,148,2
  4287.         }
  4288.     }
  4289. #@2    &if(%direc<0){
  4290.         &if(%px<100){
  4291.             &move 117,189,8
  4292.         }&else{
  4293.             &move 25,12,2
  4294.         }
  4295.     }
  4296. #@3    &if(%direc<0){
  4297.         &if(%px<100){
  4298.             &move 121,90,2
  4299.         }&else{
  4300.             &move 87,33,8
  4301.         }
  4302.     }
  4303. #@4    &if(%direc<0){
  4304.         &if(%px<150){
  4305.             &move 189,118,2
  4306.         }&else{
  4307.             &move 130,61,8
  4308.         }
  4309.     }
  4310. #@5    &if(%direc<0){
  4311.         &if(%px<120){
  4312.             &move 179,57,8
  4313.         }&else{
  4314.             &move 113,10,2
  4315.         }
  4316.     }
  4317. //マンイベント
  4318. #1    !o(1)j(2)ナーガ;j(0)やはり、来たか;お前がケルベロスをたおした者だなp
  4319.     &if(主人公==0){
  4320.         &monsprint 24,80,少年
  4321.         !o(1)j(2)|(0);j(0)そうだ、さっさと秘石を渡して貰おうかpc
  4322.     }&else{
  4323.         &monsprint 24,80,少女
  4324.         !o(1)j(2)|(0);j(0)そうよ、無駄な争いは好まないは大人しく秘石を渡してちょうだいpc
  4325.     }
  4326.     !o(1)j(2)ナーガ;j(0)フハハ、面白いp;
  4327.     !しかしな、まだあの洞窟の封印を解かれるわけにはいかぬのだp;
  4328.     !アロンゲルス様が聖剣の力を吸収するまではなw・w・w・p
  4329.     &if(主人公==0){
  4330.         &monsprint 24,80,少年
  4331.         !o(1)j(2)|(0);j(0)何っ！聖剣の力を吸収するだとpc
  4332.     }&else{
  4333.         &monsprint 24,80,少女
  4334.         !o(1)j(2)|(0);j(0)えっ、聖剣の力を吸収！？pc
  4335.     }
  4336.     !o(1)j(2)ナーガ;j(0)そうだ、聖剣の力を吸収し;アロンゲルス様は超魔竜となられるのだp;
  4337.     !そして、その力でこの世界とともに我らは無に帰るのだっ！！p
  4338.     &if(主人公==0){
  4339.         &monsprint 24,80,少年
  4340.         !o(1)j(2)|(0);j(0)な、何だって！;ふざけんな、てめえらだけで勝手に死にやがれ！pc
  4341.     }&else{
  4342.         &monsprint 24,80,少女
  4343.         !o(1)j(2)|(0);j(0)なんですって！;そんなことはさせないわっ！pc
  4344.     }
  4345.     魔=5
  4346.     力=5
  4347.     &se 22
  4348.     &battle $1000,15,ナーガ,1,0,0,0,0
  4349.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  4350.     &manmove 1,-2
  4351.     &manmove 2,-2
  4352.     秘石=秘石+1
  4353.     &bgm 24
  4354.     &wait 780
  4355.     &bgm 17
  4356.     !o(1)j(2)第f(秘石)の秘石j(0)を手に入れた！pc
  4357.     &jsr 食事
  4358.     %manpoint(1)={1000,1000}
  4359.     %manpoint(2)={1000,1000}
  4360.     &on
  4361.     &jsr 石チェック
  4362.     ナーガ死=1
  4363.     %systime=0
  4364. #2    &link 1
  4365. //セーブ＆回復鶏
  4366. #20    &if(にわ5==0){
  4367.         にわ5=1
  4368.         !o(1)j(2)マリーヌj(0);チャオ;わたしセーブ＆回復鶏のマリーヌ;
  4369.         !どうするの？p;
  4370.     }&else{
  4371.         !o(1)j(2)マリーヌj(0);どうするの？p;
  4372.     }
  4373.     %selectlist={セーブ,回復}
  4374.     選択=%select
  4375.     &switch(選択){
  4376.         &case(0):
  4377.             !セーブねp
  4378.             &save 100,152,122,-8
  4379.             &break
  4380.         &case(1):
  4381.             !回復ねp
  4382.             &se 26
  4383.             &freash $003E
  4384.             &wait 50
  4385.             &complete
  4386.             &break
  4387.         &default:
  4388.             !あ、そうp
  4389.     }
  4390.     !o(1)j(2)マリーヌj(0);じゃ、またねpc
  4391.     &manmove 20,-2
  4392. //ロードはここ
  4393. #100    &commenu 1
  4394.     &bgm 17
  4395.     &bgm 17
  4396.     !o(1)j(2)マリーヌ;j(0)おかえり;じゃ、がんばってねpc
  4397.  
  4398. //空っぽ宝箱
  4399. #3    &pcm 2
  4400.     &jsr 宝箱処理３
  4401. #9    &pcm 2
  4402.     &jsr 宝箱処理３
  4403. #13    !o(1)からっぽですpc
  4404.  
  4405. //モンスター入り宝箱
  4406. #7    %mandef(%manno)={$3,0,$00,2,0}
  4407.     &on
  4408.     &pcm 2
  4409.     &manmove %manno,-4
  4410.     !o(1)宝箱からモンスターが現れた！pc
  4411.     魔=-1
  4412.     力=2
  4413.     &se 22
  4414.     &battle $1000,15,スライム,3,0,0,0,0
  4415.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  4416.     &if(絶食==0){
  4417.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  4418.     }
  4419.     %systime=0
  4420.     &manmove %manno,-2
  4421.     %mandef(%manno)={$3,0,$00,2,-1}
  4422.     &on
  4423. #10    %mandef(%manno)={$3,0,$00,2,0}
  4424.     &on
  4425.     &pcm 2
  4426.     &manmove %manno,-4
  4427.     !o(1)宝箱からモンスターが現れた！pc
  4428.     魔=-1
  4429.     力=2
  4430.     &se 22
  4431.     &battle $1000,15,スライム,5,0,0,0,0
  4432.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  4433.     &if(絶食==0){
  4434.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  4435.     }
  4436.     %systime=0
  4437.     &manmove %manno,-2
  4438.     %mandef(%manno)={$3,0,$00,2,-1}
  4439.     &on
  4440. #14    %mandef(%manno)={$3,0,$00,2,0}
  4441.     &on
  4442.     &pcm 2
  4443.     &manmove %manno,-4
  4444.     !o(1)宝箱からモンスターが現れた！pc
  4445.     魔=3
  4446.     力=-1
  4447.     &se 22
  4448.     &battle $1000,15,ラミア,3,0,0,0,0
  4449.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  4450.     &if(絶食==0){
  4451.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  4452.     }
  4453.     %systime=0
  4454.     &manmove %manno,-2
  4455.     %mandef(%manno)={$3,0,$00,2,-1}
  4456.     &on
  4457. //宝箱１９（）            //宝の中身がアイテムの場合
  4458. #4    &if(宝19==0){            //フラグが立っていない（宝をまだ取っていない）時
  4459.         &pcm 2
  4460.         宝=フルポーション        //アイテム（宝箱の中身）
  4461.         &jsr 宝箱処理１        //アイテムの場合はこのサブルーチン
  4462.         &if(宝フラグ==1){宝19=1}//アイテムを取ることが出来たら
  4463.     }&else{                //フラグが立っていた（宝を取ってある）時
  4464.         !o(1)からっぽですpc
  4465.     }
  4466. //宝箱２０（）            //宝の中身がアイテムの場合
  4467. #5    &if(宝20==0){            //フラグが立っていない（宝をまだ取っていない）時
  4468.         &pcm 2
  4469.         金=2000            //アイテム（宝箱の中身）
  4470.         &jsr 宝箱処理２        //アイテムの場合はこのサブルーチン
  4471.         &if(宝フラグ==1){宝20=1}//アイテムを取ることが出来たら
  4472.     }&else{                //フラグが立っていた（宝を取ってある）時
  4473.         !o(1)からっぽですpc
  4474.     }
  4475. //宝箱２１（）            //宝の中身がアイテムの場合
  4476. #6    &if(宝21==0){            //フラグが立っていない（宝をまだ取っていない）時
  4477.         &pcm 2
  4478.         宝=氷結の石        //アイテム（宝箱の中身）
  4479.         &jsr 宝箱処理１        //アイテムの場合はこのサブルーチン
  4480.         &if(宝フラグ==1){宝21=1}//アイテムを取ることが出来たら
  4481.     }&else{                //フラグが立っていた（宝を取ってある）時
  4482.         !o(1)からっぽですpc
  4483.     }
  4484. //宝箱２２（）            //宝の中身がアイテムの場合
  4485. #8    &if(宝22==0){            //フラグが立っていない（宝をまだ取っていない）時
  4486.         &pcm 2
  4487.         宝=獅子の牙        //アイテム（宝箱の中身）
  4488.         &jsr 宝箱処理１        //アイテムの場合はこのサブルーチン
  4489.         &if(宝フラグ==1){宝22=1}//アイテムを取ることが出来たら
  4490.     }&else{                //フラグが立っていた（宝を取ってある）時
  4491.         !o(1)からっぽですpc
  4492.     }
  4493. //宝箱２３（）            //宝の中身がアイテムの場合
  4494. #11    &if(宝23==0){            //フラグが立っていない（宝をまだ取っていない）時
  4495.         &pcm 2
  4496.         宝=青の魔石        //アイテム（宝箱の中身）
  4497.         &jsr 宝箱処理１        //アイテムの場合はこのサブルーチン
  4498.         &if(宝フラグ==1){宝23=1}//アイテムを取ることが出来たら
  4499.     }&else{                //フラグが立っていた（宝を取ってある）時
  4500.         !o(1)からっぽですpc
  4501.     }
  4502. //宝箱２４（）            //宝の中身がアイテムの場合
  4503. #12    &if(宝24==0){            //フラグが立っていない（宝をまだ取っていない）時
  4504.         &pcm 2
  4505.         &if(主人公==0){
  4506.             宝=ヘルギソード
  4507.         }&else{
  4508.             宝=魔獣の牙    //アイテム（宝箱の中身）
  4509.         }
  4510.         &jsr 宝箱処理１        //アイテムの場合はこのサブルーチン
  4511.         &if(宝フラグ==1){宝24=1}//アイテムを取ることが出来たら
  4512.     }&else{                //フラグが立っていた（宝を取ってある）時
  4513.         !o(1)からっぽですpc
  4514.     }
  4515. //戦闘イベント
  4516. #@47    &if(%direc>=0){&&}        //ｲﾍﾞﾝﾄ上、ｲﾍﾞﾝﾄに向かってﾎﾞﾀﾝが押されたら処理中断
  4517.     &if(%rnd(100)>8){&&}        //乱数が8より大きければ処理中断
  4518.     &if(%systime<100){&&}        //前回の戦闘から?ターン経っていなければ処理中断
  4519.     &if(もん==1){&&}        //でばぐ
  4520.     所持金=%gold
  4521.         &switch(%rnd(2)){
  4522.             &case(0):
  4523.                 魔物=スライム
  4524.                 魔物数=%rnd(2)+1
  4525.                 魔=-1
  4526.                 力=2
  4527.                 &break
  4528.             &case(1):
  4529.                 魔物=モスマン
  4530.                 魔物数=%rnd(2)+1
  4531.                 魔=2
  4532.                 力=-1
  4533.         }
  4534.     &se 22
  4535.     &battle 0,15,魔物,魔物数,0,0,0,0
  4536.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  4537.     &if(絶食==0){
  4538.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  4539.     }
  4540.     %systime=0
  4541. #@48    &if(%direc>=0){&&}        //ｲﾍﾞﾝﾄ上、ｲﾍﾞﾝﾄに向かってﾎﾞﾀﾝが押されたら処理中断
  4542.     &if(%rnd(100)>8){&&}        //乱数が8より大きければ処理中断
  4543.     &if(%systime<100){&&}        //前回の戦闘から?ターン経っていなければ処理中断
  4544.     &if(もん==1){&&}        //でばぐ
  4545.     所持金=%gold
  4546.         &switch(%rnd(2)){
  4547.             &case(0):
  4548.                 魔物=デュラハン
  4549.                 魔物数=%rnd(2)+1
  4550.                 魔=2
  4551.                 力=1
  4552.                 &break
  4553.             &case(1):
  4554.                 魔物=ラミア
  4555.                 魔物数=1
  4556.                 魔=3
  4557.                 力=-1
  4558.         }
  4559.     &se 22
  4560.     &battle 0,15,魔物,魔物数,0,0,0,0
  4561.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  4562.     &if(絶食==0){
  4563.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  4564.     }
  4565.     %systime=0
  4566. #@49    &if(%direc>=0){&&}        //ｲﾍﾞﾝﾄ上、ｲﾍﾞﾝﾄに向かってﾎﾞﾀﾝが押されたら処理中断
  4567.     &if(%rnd(100)>8){&&}        //乱数が8より大きければ処理中断
  4568.     &if(%systime<100){&&}        //前回の戦闘から?ターン経っていなければ処理中断
  4569.     &if(もん==1){&&}        //でばぐ
  4570.     所持金=%gold
  4571.         &switch(%rnd(2)){
  4572.             &case(0):
  4573.                 魔物=ラミア
  4574.                 魔物数=%rnd(2)+1
  4575.                 魔=3
  4576.                 力=-1
  4577.                 &break
  4578.             &case(1):
  4579.                 魔物=バルログ
  4580.                 魔物数=1
  4581.                 魔=1
  4582.                 力=3
  4583.         }
  4584.     &se 22
  4585.     &battle 0,15,魔物,魔物数,0,0,0,0
  4586.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  4587.     &if(絶食==0){
  4588.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  4589.     }
  4590.     %systime=0
  4591.     &&
  4592. &label 死亡
  4593.     &bgm 18
  4594.     !o(0):j(1)w・w・w・w　ＧＡＭＥ　ＯＶＥＲ　w・w・w・wwwwpc
  4595.     &bgm -1
  4596.     &load
  4597.     &reset
  4598. //▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
  4599.  
  4600.     [MORI]                    //妖精の森
  4601.  
  4602. //    ■　　　■　■■■■■　■■■■　　■
  4603. //    ■■　■■　■　　　■　■　　　■　■
  4604. //    ■　■　■　■　　　■　■■■■　　■
  4605. //    ■　　　■　■　　　■　■　　　■　■
  4606. //    ■　　　■　■■■■■　■　　　■　■
  4607.  
  4608. //▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
  4609.     &bgm 23
  4610.     &bgm 23
  4611.     &sppsp PTN\MORI.SPP
  4612.     &map MAP\MORI.MAP
  4613.     &mapsp PTN\MORI.SP
  4614.     &mappal PTN\MORI.PAL
  4615.     &ldef 果実    //いもむしにやるエサ5個食わしたら
  4616.     
  4617.     //%bcirclesize=256
  4618.     //%bcirclesize=40
  4619.     //%partypoint={28,114,2}
  4620.     %partypoint={109,2,2}
  4621.     &partyspeed Ｄ速度
  4622.     &if(森の中==0){
  4623.     &if(ナカラ==1){
  4624.         &partyset 0,1,2,3
  4625.     }&else{
  4626.         &partyset 0,1,2
  4627.     }
  4628.     }
  4629.     &commenu 1
  4630.     
  4631.     %mandef(1)={$2,0,$00,2,-1}        //精霊木
  4632.     %mandef(2)={$2,0,$00,4,-1}        //精霊木
  4633.     %mandef(3)={$2,0,$00,6,-1}        //精霊木
  4634.     %mandef(4)={$2,0,$00,8,-1}        //精霊木
  4635.     %mandef(5)={$2,0,$20,2,-1}        //精霊木
  4636.     %mandef(6)={$2,0,$20,4,-1}        //精霊木
  4637.     %mandef(7)={$2,0,$20,6,-1}        //精霊木
  4638.     %mandef(8)={$2,0,$20,8,-1}        //精霊木
  4639.     %mandef(9)={$2,0,$40,2,-1}        //精霊木
  4640.     %mandef(10)={$2,0,$40,4,-1}        //精霊木
  4641.     %mandef(11)={$2,0,$40,6,-1}        //精霊木
  4642.     %mandef(12)={$2,0,$40,8,-1}        //精霊木
  4643.     %mandef(13)={$2,0,$60,2,-1}        //精霊木
  4644.     %mandef(14)={$2,0,$60,4,-1}        //精霊木
  4645.     %mandef(15)={$1,0,$80,2,1}        //精霊
  4646.     %manpoint(15)={300,300}
  4647.     %mandef(16)={$1,2,$00,2,-1}        //果実
  4648.     %mandef(17)={$1,2,$00,2,-1}        //果実
  4649.     &if(いも死==0){
  4650.     %mandef(18)={$d,0,$A0,2,0}        //いもむし
  4651.     %mandef(19)={$d,0,$A0,4,-1}        //いもむし
  4652.     }
  4653.     &if(ミノ死==0){
  4654.     %mandef(20)={$4,0,$C0,2,0}        //ミノタウロス
  4655.     %mandef(21)={$4,0,$C0,4,0}        //ミノタウロス
  4656.     %mandef(22)={$4,0,$C0,6,0}        //ミノタウロス
  4657.     %mandef(23)={$4,0,$C0,8,0}        //ミノタウロス
  4658.     }
  4659. //セーブ＆回復鶏
  4660.     %mandef(24)={$A,1,$E0,2,0}        //鶏
  4661.  
  4662.     &jsr 巨大化
  4663.     森の中=1
  4664.  
  4665.     &if(地名表示==0){
  4666.         &monsprint 44,100,Ｍ１３,1
  4667.         &monsprint 128,100,Ｍ１４,1
  4668.         &wait 100
  4669.         &monsprint 0,10,消し
  4670.         &monsprint 128,10,消し
  4671.     }
  4672. #@0    &if(%direc<0){
  4673.         森の中==0
  4674.         &goto2 FIELD,12,20,2
  4675.     }
  4676. #@1    &if(%direc<0){
  4677.         &if(%py<128){
  4678.     //        &blackcircle 1
  4679.             &move 90,138,2
  4680.         }&else{
  4681.     //        &blackcircle 0
  4682.             &move 90,6,8
  4683.         }
  4684.     }
  4685. #@2    &if(%direc<0){
  4686.         &if(%py<128){
  4687.     //        &blackcircle 1
  4688.             &move 80,143,8
  4689.         }&else{
  4690.     //        &blackcircle 0
  4691.             &move 80,18,2
  4692.         }
  4693.     }
  4694. #@3    &if(%direc<0){
  4695.         &if(%py<128){
  4696.     //        &blackcircle 1
  4697.             &move 100,160,2
  4698.         }&else{
  4699.     //        &blackcircle 0
  4700.             &move 100,28,8
  4701.         }
  4702.     }
  4703. #@4    &if(%direc<0){
  4704.         &if(%py<128){
  4705.     //        &blackcircle 1
  4706.             &move 114,147,8
  4707.         }&else{
  4708.     //        &blackcircle 0
  4709.             &move 114,22,2
  4710.         }
  4711.     }
  4712. #@5    &if(%direc<0){
  4713.         &if(%py<128){
  4714.     //        &blackcircle 1
  4715.             &move 116,171,8
  4716.         }&else{
  4717.     //        &blackcircle 0
  4718.             &move 116,46,2
  4719.         }
  4720.     }
  4721. #@6    &if(%direc<0){
  4722.         &if(%py<128){
  4723.     //        &blackcircle 1
  4724.             &move 78,173,2
  4725.         }&else{
  4726.     //        &blackcircle 0
  4727.             &move 78,41,8
  4728.         }
  4729.     }
  4730. #@7    &if(%direc<0){
  4731.         &if(%py<128){
  4732.     //        &blackcircle 1
  4733.             &move 88,182,8
  4734.         }&else{
  4735.     //        &blackcircle 0
  4736.             &move 88,57,2
  4737.         }
  4738.     }
  4739. #@8    &if(%direc<0){
  4740.         &if(%py<128){
  4741.     //        &blackcircle 1
  4742.             &move 105,198,2
  4743.         }&else{
  4744.     //        &blackcircle 0
  4745.             &move 105,66,8
  4746.         }
  4747.     }
  4748. #@9    &if(%direc<0){
  4749.         &if(%py<128){
  4750.     //        &blackcircle 1
  4751.             &move 120,205,8
  4752.         }&else{
  4753.     //        &blackcircle 0
  4754.             &move 120,80,2
  4755.         }
  4756.     }
  4757. #@10    &if(%direc<0){
  4758.         &if(%py<128){
  4759.     //        &blackcircle 1
  4760.             &move 104,215,2
  4761.         }&else{
  4762.     //        &blackcircle 0
  4763.             &move 104,83,8
  4764.         }
  4765.     }
  4766. #@11    &if(%direc<0){
  4767.         &if(%py<128){
  4768.     //        &blackcircle 1
  4769.             &move 96,226,8
  4770.         }&else{
  4771.     //        &blackcircle 0
  4772.             &move 96,101,2
  4773.         }
  4774.     }
  4775. #@12    &if(%direc<0){
  4776.         &if(%py<128){
  4777.     //        &blackcircle 1
  4778.             &move 120,238,8
  4779.         }&else{
  4780.     //        &blackcircle 0
  4781.             &move 120,113,2
  4782.         }
  4783.     }
  4784. #@13    &if(%direc<0){
  4785.         &if(%py<128){
  4786.     //        &blackcircle 1
  4787.             &move 106,250,8
  4788.         }&else{
  4789.     //        &blackcircle 0
  4790.             &move 106,125,2
  4791.         }
  4792.     }
  4793. #@14    &if(%direc<0){
  4794.         &if(%py<128){
  4795.     //        &blackcircle 1
  4796.             &move 68,247,8
  4797.         }&else{
  4798.     //        &blackcircle 0
  4799.             &move 68,122,2
  4800.         }
  4801.     }
  4802. #@15    &if(%direc<0){
  4803.         &if(%py<128){
  4804.     //        &blackcircle 1
  4805.             &move 78,224,8
  4806.         }&else{
  4807.     //        &blackcircle 0
  4808.             &move 78,99,2
  4809.         }
  4810.     }
  4811. #@16    &if(%direc<0){
  4812.         &if(%py<128){
  4813.     //        &blackcircle 1
  4814.             &move 66,224,2
  4815.         }&else{
  4816.     //        &blackcircle 0
  4817.             &move 66,92,8
  4818.         }
  4819.     }
  4820. #@17    &if(%direc<0){
  4821.         &if(%py<128){
  4822.     //        &blackcircle 1
  4823.             &move 76,200,8
  4824.         }&else{
  4825.     //        &blackcircle 0
  4826.             &move 76,75,2
  4827.         }
  4828.     }
  4829. #@18    &if(%direc<0){
  4830.         &if(%py<128){
  4831.     //        &blackcircle 1
  4832.             &move 85,209,2
  4833.         }&else{
  4834.     //        &blackcircle 0
  4835.             &move 85,77,8
  4836.         }
  4837.     }
  4838. #@19    &if(%direc<0){
  4839.         &if(%py<128){
  4840.     //        &blackcircle 1
  4841.             &move 66,182,8
  4842.         }&else{
  4843.     //        &blackcircle 0
  4844.             &move 66,57,2
  4845.         }
  4846.     }
  4847. #@20    &if(%direc<0){
  4848.         &if(%py<128){
  4849.     //        &blackcircle 1
  4850.             &move 62,160,8
  4851.         }&else{
  4852.     //        &blackcircle 0
  4853.             &move 62,35,2
  4854.         }
  4855.     }
  4856. #@21    &if(%direc<0){
  4857.         &if(%py<128){
  4858.     //        &blackcircle 1
  4859.             &move 62,142,2
  4860.         }&else{
  4861.     //        &blackcircle 0
  4862.             &move 62,10,8
  4863.         }
  4864.     }
  4865. #@22    &if(%direc<0){
  4866.         &if(%py<128){
  4867.     //        &blackcircle 1
  4868.             &move 50,150,8
  4869.         }&else{
  4870.     //        &blackcircle 0
  4871.             &move 50,25,2
  4872.         }
  4873.     }
  4874. #@23    &if(%direc<0){
  4875.         &if(%py<128){
  4876.     //        &blackcircle 1
  4877.             &move 38,149,8
  4878.         }&else{
  4879.     //        &blackcircle 0
  4880.             &move 38,23,2
  4881.         }
  4882.     }
  4883. #@24    &if(%direc<0){
  4884.         &if(%py<128){
  4885.     //        &blackcircle 1
  4886.             &move 50,238,2
  4887.         }&else{
  4888.     //        &blackcircle 0
  4889.             &move 50,106,8
  4890.         }
  4891.     }
  4892. #@25    &if(%direc<0){
  4893.         &if(%py<128){
  4894.     //        &blackcircle 1
  4895.             &move 52,210,8
  4896.         }&else{
  4897.     //        &blackcircle 0
  4898.             &move 52,85,2
  4899.         }
  4900.     }
  4901. #@26    &if(%direc<0){
  4902.         &if(%py<128){
  4903.     //        &blackcircle 1
  4904.             &move 33,205,8
  4905.         }&else{
  4906.     //        &blackcircle 0
  4907.             &move 33,80,2
  4908.         }
  4909.     }
  4910. #@27    &if(%direc<0){
  4911.         &if(%py<128){
  4912.     //        &blackcircle 1
  4913.             &move 16,210,2
  4914.         }&else{
  4915.     //        &blackcircle 0
  4916.             &move 16,78,8
  4917.         }
  4918.     }
  4919. #@28    &if(%direc<0){
  4920.         &if(%py<128){
  4921.     //        &blackcircle 1
  4922.             &move 2,208,8
  4923.         }&else{
  4924.     //        &blackcircle 0
  4925.             &move 2,83,2
  4926.         }
  4927.     }
  4928. #@29    &if(%direc<0){
  4929.         &if(%py<128){
  4930.     //        &blackcircle 1
  4931.             &move 14,186,8
  4932.         }&else{
  4933.     //        &blackcircle 0
  4934.             &move 14,61,2
  4935.         }
  4936.     }
  4937. #@30    &if(%direc<0){
  4938.         &if(%py<128){
  4939.     //        &blackcircle 1
  4940.             &move 10,166,2
  4941.         }&else{
  4942.     //        &blackcircle 0
  4943.             &move 10,34,8
  4944.         }
  4945.     }
  4946. #@31    &if(%direc<0){
  4947.         &if(%py<128){
  4948.     //        &blackcircle 1
  4949.             &move 2,138,2
  4950.         }&else{
  4951.     //        &blackcircle 0
  4952.             &move 2,6,8
  4953.         }
  4954.     }
  4955. #@32    &if(%direc<0){
  4956.         &if(%py<128){
  4957.     //        &blackcircle 1
  4958.             &move 36,134,2
  4959.         }&else{
  4960.     //        &blackcircle 0
  4961.             &move 36,2,8
  4962.         }
  4963.     }
  4964. //ミノタウロス
  4965. #@33    &if(%direc<0){
  4966.         &if(ミノ死==0){
  4967.         !o(1)j(2)ミノタウロスj(0);
  4968.         !w・w・w・この精霊木をぶった切れば、このあたりの聖力も弱まりアロンゲルス様の仕事もはかどるなpc
  4969.         &if(%py<120){
  4970.             &partymove 4,4,2,2,2,2,4,4,4,4,4,-8
  4971.         }&else{
  4972.             &partymove 4,4,4,4,4,4,4,4,8,8,-8
  4973.         }
  4974.         &if(主人公==0){
  4975.             &monsprint 24,80,少年
  4976.             !o(1)j(2)|(0);j(0)おいっ！;なに、ぶつぶつ言っていやがる怪物めっ！pc
  4977.             !o(1)j(2)ミノタウロスj(0);な、なんだテメーはっ！p
  4978.             &monsprint 24,80,少年
  4979.             !o(1)j(2)|(0);j(0)お前、秘石持ってるか？pc
  4980.             !o(1)j(2)ミノタウロスj(0);はっ！;キサマ、ケルベロスをやったヤツだなっ！p
  4981.             &monsprint 24,80,少年
  4982.             !o(1)j(2)|(0);j(0)お前もヤツみたいになりたくなければ大人しく秘石を渡しなっ！pc
  4983.             !o(1)j(2)ミノタウロスj(0);ガッハッハッ！;人間ごときが調子づくなよ;p
  4984.             !このミノタウロス様の力、思い知らせてやるpc
  4985.         }&else{
  4986.             &monsprint 24,80,少女
  4987.             !o(1)j(2)|(0);j(0)ねえ、あなた魔竜の子分ねpc
  4988.             !o(1)j(2)ミノタウロスj(0);ん？;いかにもオレは魔竜アロンゲルスの配下の者p
  4989.             &monsprint 24,80,少女
  4990.             !o(1)j(2)|(0);j(0)ふーん、やっぱりねえ;秘石持ってるでしょpc
  4991.             !o(1)j(2)ミノタウロスj(0);ああ、もちろんだ;pこれはアロンゲルス様が聖剣の力を吸収
  4992.             !しおえた時に洞窟の下層部の封印を解くものなのだp;
  4993.             &monsprint 24,80,少女
  4994.             !o(1)j(2)|(0);j(0)へえ、そうなんだp;それ、ちょうだいpc
  4995.             !o(1)j(2)ミノタウロスj(0);な、何を言う;はいそれと渡すわけがないだろうp
  4996.             &monsprint 24,80,少女
  4997.             !o(1)j(2)|(0);j(0)ちょうだい、ちょうだいpc
  4998.         }
  4999.         魔=3
  5000.         力=8
  5001.         &se 22
  5002.         &battle $1000,15,ミノタウロス,1,0,0,0,0
  5003.         &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  5004.         !o(1)j(2)ミノタウロスj(0);ぐほっ、人間ごときにw・w・w・;p
  5005.         ミノ死=1
  5006.         秘石=秘石+1
  5007.         &bgm 24
  5008.         &wait 780
  5009.         &bgm 23
  5010.         !o(1)j(2)第f(秘石)の秘石j(0)を手に入れた！pc
  5011.         &jsr 食事
  5012.         %manpoint(20)={500,500}
  5013.         %manpoint(21)={500,500}
  5014.         %manpoint(22)={500,500}
  5015.         %manpoint(23)={500,500}
  5016.         &on
  5017.         &jsr 石チェック
  5018.         &wait 50
  5019.         &partymove 8,8
  5020.         &mappal PTN\MORI2.PAL
  5021.         &on
  5022.         &wait 10
  5023.         &mappal PTN\MORI3.PAL
  5024.         &on
  5025.         &pcm 1
  5026.         %manpoint(15)={13,112}
  5027.         &on
  5028.         &manmove 15,-4,-6,-8
  5029.         &wait 20
  5030.         &if(主人公==0){
  5031.             &monsprint 24,80,少年
  5032.             !o(1)j(2)|(0);j(0)な、なんだぁ？pc
  5033.         }&else{
  5034.             &monsprint 24,80,少女
  5035.             !o(1)j(2)|(0);j(0)えっ、どうしたの？pc
  5036.         }
  5037.         !o(1)j(2)森の精霊;j(0)我、森の精霊なりp;
  5038.         !そなたのおかげで、この精霊木は守られた礼をいうp
  5039.         &if(主人公==0){
  5040.             &monsprint 24,80,少年
  5041.             !o(1)j(2)|(0);j(0)はぁ？;・w・w・wまあ行きがかり上、そうなっちまったのかpc
  5042.         }&else{
  5043.             &monsprint 24,80,少女
  5044.             !o(1)j(2)|(0);j(0)森の精霊？;・w・w・wそうだったの、お役に立てて良かったわpc
  5045.         }
  5046.         &if(%rasthaveitem>0){
  5047.             !o(1)j(2)森の精霊;j(0)そなたにこれを授けようpc
  5048.             !o(1)j(2)癒しの杖j(0)を手に入れた！pc
  5049.             &partyitemin 癒しの杖
  5050.         }
  5051.         !o(1)j(2)森の精霊;j(0)ついでに森の入り口まで戻してやろうp
  5052.         &if(%inkeyn==0){
  5053.             !;それでは、さらばじゃpc
  5054.             &manmove 15,-8,-6,-4
  5055.             %manpoint(15)={300,300}
  5056.             &on
  5057.             &mappal PTN\MORI2.PAL
  5058.             &on
  5059.             &wait 10
  5060.             &mappal PTN\MORI.PAL
  5061.             &on
  5062.             %systime=0
  5063.             &pcm 9
  5064.             &move 109,2,2
  5065.         }&else{
  5066.             !;それでは、さらばじゃpc
  5067.             &manmove 15,-8,-6,-4
  5068.             %manpoint(15)={300,300}
  5069.             &on
  5070.             &mappal PTN\MORI2.PAL
  5071.             &on
  5072.             &wait 10
  5073.             &mappal PTN\MORI.PAL
  5074.             &on
  5075.             %systime=0
  5076.         }
  5077.     }
  5078.     }
  5079. //薬草
  5080. #@34    &if(%direc>0){
  5081.     !o(1)j(2)薬草j(0)を見つけた！p
  5082.     &if(%rasthaveitem<0){        //アイテムがこれ以上持てるか判定
  5083.         !;これ以上持てませんpc
  5084.     }&else{
  5085.         &partyitemin 薬草        //アイテム入手
  5086.         !;j(2)薬草j(0)を手に入れたpc
  5087.     }
  5088.     }
  5089. //果実
  5090. #16    !o(1)j(2)森の果実j(0)を見つけた！p
  5091.     &if(%rasthaveitem<0){        //アイテムがこれ以上持てるか判定
  5092.         !;これ以上持てませんpc
  5093.     }&else{
  5094.         &partyitemin 森の果実        //アイテム入手
  5095.         !;j(2)森の果実j(0)を手に入れたpc
  5096.     }
  5097. #17    &link 16
  5098.  
  5099. //いもむし
  5100. #18    &bgm 30
  5101.     &if(いも死==1){
  5102.     &if(%haveitem(森の果実)==1){
  5103.         &partyitemout 森の果実
  5104.         !o(1)j(2)いもむしj(0);ムシャムシャ;うーん、うまいっち！p;
  5105.         果実=果実+1
  5106.     &if(果実==3){
  5107.     &if(主人公==0){
  5108.         !ほらほら、じゃんじゃん持って来るっちp
  5109.         &monsprint 24,80,少年
  5110.         !o(1)j(2)|(0);j(0)w・w・w・てめえ、調子にのんなよp;|(1)、|(2)こいつを食っちまえpc
  5111.         !o(1)j(2)いもむしj(0);えっ？p
  5112.         !o(1)j(2)|(1)＆|(2)j(0);ジュルルッp
  5113.         !o(1)j(2)いもむしj(0);うぎゃーっ！ごめんっちー！p
  5114.         &se 10
  5115.         %manpoint(18)={500,500}
  5116.         %manpoint(19)={500,500}
  5117.         &on
  5118.         &wait 30
  5119.         &monsprint 24,80,少年
  5120.         !o(1)j(2)|(0);j(0)チッ、手ーかけさせやがってpc
  5121.     }&else{
  5122.         !;うーん、もっともっとだっちp
  5123.         &monsprint 24,80,少女
  5124.         !o(1)j(2)|(0);j(0)w・w・w・（プチッ）pc
  5125.         !o(1)j(2)いもむしj(0);あれっ？今、プチッとか音しましたw・w・w・？p
  5126.         &monsprint 24,80,少女
  5127.         !o(1)j(2)|(0);j(0)|(1)、|(2);ごはんの時間よw・w・w・pc
  5128.         !o(1)j(2)いもむしj(0);えっ？わたくしですかっち？p;
  5129.         !o(1)j(2)|(1)＆|(2)j(0);ジュルルッp
  5130.         !o(1)j(2)いもむしj(0);うぎゃーっ！ごめんっちー！p
  5131.         &se 10
  5132.         %manpoint(18)={500,500}
  5133.         %manpoint(19)={500,500}
  5134.         &on
  5135.         &wait 30
  5136.         &monsprint 24,80,少女
  5137.         !o(1)j(2)|(0);j(0)まったく、いもむしの分際で調子に乗るんじゃないわよっpc
  5138.     }
  5139.         いも死=2
  5140.     }&else{
  5141.     &if(主人公==0){
  5142.         !まだ、物足りないっちp
  5143.         &monsprint 24,80,少年
  5144.         !o(1)j(2)|(0);j(0)ふう、わかったよ;ちょっと待ってなpc
  5145.         !o(1)j(2)いもむしj(0);ありがとおっちpc
  5146.     }&else{
  5147.         !うーん、ちょっと物足りないっp
  5148.         &monsprint 24,80,少女
  5149.         !o(1)j(2)|(0);j(0)うん、そうかもね;ちょっと待っててpc
  5150.         !o(1)j(2)いもむしj(0);すまないっちpc
  5151.     }
  5152.     }
  5153.     }&else{
  5154.         !o(1)j(2)いもむしj(0);はやく、とってきて欲しいっちpc
  5155.     }
  5156.     }&else{
  5157.     &if(主人公==0){
  5158.         &monsprint 24,80,少年
  5159.         !o(1)j(2)|(0);j(0)おいっ、てめえ邪魔だぞpc
  5160.         !o(1)j(2)いもむしj(0);オイラ、めちゃめちゃ弱いイモムシだっちp;
  5161.         !おなかが減って動けないんだっち;j(2)森の果実j(0)を食べれば元気になるっちp
  5162.         &monsprint 24,80,少年
  5163.         !o(1)j(2)|(0);j(0)森の果実？pc
  5164.         !o(1)j(2)いもむしj(0);この森のどこかになってるっち;とってきてほしいっちp
  5165.         &monsprint 24,80,少年
  5166.         !o(1)j(2)|(0);j(0)たくっ、しゃーねーな;とってきてやるから食ったらすぐどけよpc
  5167.         !o(1)j(2)いもむしj(0);わかったっちpc
  5168.     }&else{
  5169.         &monsprint 24,80,少女
  5170.         !o(1)j(2)|(0);j(0)ちょっと、ちょっと、そこ通してよぉpc
  5171.         !o(1)j(2)いもむしj(0);オイラ、めちゃめちゃ弱いイモムシだっちp;
  5172.         !おなかが減って動けないんだっち;j(2)森の果実j(0)を食べれば元気になるっちpc
  5173.         &monsprint 24,80,少女
  5174.         !o(1)j(2)|(0);j(0)えっ、森の果実？pc
  5175.         !o(1)j(2)いもむしj(0);この森のどこかになってるっち;とってきてほしいっちp
  5176.         &monsprint 24,80,少女
  5177.         !o(1)j(2)|(0);j(0)もう、仕方ないわね;食べたらすぐ退けてよぉpc
  5178.         !o(1)j(2)いもむしj(0);わかったっちpc
  5179.     }
  5180.     いも死=1
  5181.     }
  5182.     %systime=0
  5183.     &bgm 23
  5184. #19
  5185.  
  5186. #24    &if(にわ6==0){
  5187.         にわ6=1
  5188.         !o(1)j(2)エミィj(0);どうも;わたしセーブ＆回復鶏のエミィといいます;
  5189.         !どうしますか？p;
  5190.     }&else{
  5191.         !o(1)j(2)エミィj(0);どうしますか？p;
  5192.     }
  5193.     %selectlist={セーブ,回復}
  5194.     選択=%select
  5195.     &switch(選択){
  5196.         &case(0):
  5197.             !セーブですねp
  5198.             &save 100,110,119,-8
  5199.             &break
  5200.         &case(1):
  5201.             !回復ですねp
  5202.             &se 26
  5203.             &freash $003E
  5204.             &wait 50
  5205.             &complete
  5206.             &break
  5207.         &default:
  5208.             !そうですかp
  5209.     }
  5210.     !o(1)j(2)エミィj(0);それでは、またpc
  5211.     &manmove 24,-2
  5212. //ロードはここ
  5213. #100    !o(1)j(2)エミィ;j(0)おかえりなさい;がんばって下さいねpc
  5214. //精霊木
  5215. #1
  5216. #2
  5217. #3
  5218. #4
  5219. #5
  5220. #6
  5221. #7
  5222. #8
  5223. #9
  5224. #10
  5225. #11
  5226. #12
  5227. #13
  5228. #14
  5229.  
  5230. //戦闘イベント
  5231. #@46    &if(%direc>=0){&&}        //ｲﾍﾞﾝﾄ上、ｲﾍﾞﾝﾄに向かってﾎﾞﾀﾝが押されたら処理中断
  5232.     &if(%rnd(100)>8){&&}        //乱数が8より大きければ処理中断
  5233.     &if(%systime<150){&&}        //前回の戦闘から50ターン経っていなければ処理中断
  5234.     &if(もん==1){&&}        //でばぐ
  5235.     所持金=%gold
  5236.         &switch(%rnd(2)){
  5237.             &case(0):
  5238.                 魔物=シルフ
  5239.                 魔物数=%rnd(4)+2
  5240.                 魔=2
  5241.                 力=-2
  5242.                 &break
  5243.             &case(1):
  5244.                 魔物=ゴブリン
  5245.                 魔物数=%rnd(2)+1
  5246.                 魔=-1
  5247.                 力=2
  5248.         }
  5249.     &se 22
  5250.     &battle 0,15,魔物,魔物数,0,0,0,0
  5251.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  5252.     &if(絶食==0){
  5253.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  5254.     }
  5255.     %systime=0
  5256. #@47    &if(%direc>=0){&&}        //ｲﾍﾞﾝﾄ上、ｲﾍﾞﾝﾄに向かってﾎﾞﾀﾝが押されたら処理中断
  5257.     &if(%rnd(100)>8){&&}        //乱数が8より大きければ処理中断
  5258.     &if(%systime<150){&&}        //前回の戦闘から50ターン経っていなければ処理中断
  5259.     &if(もん==1){&&}        //でばぐ
  5260.     所持金=%gold
  5261.         &switch(%rnd(2)){
  5262.             &case(0):
  5263.                 魔物=ゴブリン
  5264.                 魔物数=%rnd(3)+1
  5265.                 魔=-1
  5266.                 力=2
  5267.                 &break
  5268.             &case(1):
  5269.                 魔物=レッドキャップ
  5270.                 魔物数=%rnd(2)+1
  5271.                 魔=0
  5272.                 力=2
  5273.         }
  5274.     &se 22
  5275.     &battle 0,15,魔物,魔物数,0,0,0,0
  5276.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  5277.     &if(絶食==0){
  5278.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  5279.     }
  5280.     %systime=0
  5281. #@48    &if(%direc>=0){&&}        //ｲﾍﾞﾝﾄ上、ｲﾍﾞﾝﾄに向かってﾎﾞﾀﾝが押されたら処理中断
  5282.     &if(%rnd(100)>8){&&}        //乱数が8より大きければ処理中断
  5283.     &if(%systime<150){&&}        //前回の戦闘から50ターン経っていなければ処理中断
  5284.     &if(もん==1){&&}        //でばぐ
  5285.     所持金=%gold
  5286.         &switch(%rnd(2)){
  5287.             &case(0):
  5288.                 魔物=レッドキャップ
  5289.                 魔物数=%rnd(3)+1
  5290.                 魔=0
  5291.                 力=2
  5292.                 &break
  5293.             &case(1):
  5294.                 魔物=トロル
  5295.                 魔物数=1
  5296.                 魔=-2
  5297.                 力=3
  5298.         }
  5299.     &se 22
  5300.     &battle 0,15,魔物,魔物数,0,0,0,0
  5301.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  5302.     &if(絶食==0){
  5303.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  5304.     }
  5305.     %systime=0
  5306. #@49    &if(%direc>=0){&&}        //ｲﾍﾞﾝﾄ上、ｲﾍﾞﾝﾄに向かってﾎﾞﾀﾝが押されたら処理中断
  5307.     &if(%rnd(100)>8){&&}        //乱数が8より大きければ処理中断
  5308.     &if(%systime<150){&&}        //前回の戦闘から50ターン経っていなければ処理中断
  5309.     &if(もん==1){&&}        //でばぐ
  5310.     所持金=%gold
  5311.         &switch(%rnd(2)){
  5312.             &case(0):
  5313.                 魔物=トロル
  5314.                 魔物数=%rnd(2)+1
  5315.                 魔=-2
  5316.                 力=3
  5317.                 &break
  5318.             &case(1):
  5319.                 魔物=トレント
  5320.                 魔物数=1
  5321.                 魔=2
  5322.                 力=2
  5323.         }
  5324.     &se 22
  5325.     &battle 0,15,魔物,魔物数,0,0,0,0
  5326.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  5327.     &if(絶食==0){
  5328.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  5329.     }
  5330.     %systime=0
  5331.     &&
  5332. &label 死亡
  5333.     &bgm 18
  5334.     !o(0):j(1)w・w・w・w　ＧＡＭＥ　ＯＶＥＲ　w・w・w・wwwwpc
  5335.     &bgm -1
  5336.     &load
  5337.     &reset
  5338. //▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
  5339.  
  5340.     [ISEKI]                    //エスバルン遺跡
  5341.  
  5342. //    ■　■■■■■　■■■■■　■　　　■　■
  5343. //    ■　■　　　　　■　　　　　■　　■　　■
  5344. //    ■　■■■■■　■■■■■　■　■　　　■
  5345. //    ■　　　　　■　■　　　　　■■　■　　■
  5346. //    ■　■■■■■　■■■■■　■　　　■　■
  5347.  
  5348. //▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
  5349.     &map MAP\ISEKI.MAP
  5350.     &mapsp PTN\ISEKI.SP
  5351.     &mappal PTN\ISEKI.PAL
  5352.     %partypoint={23,60,8}
  5353.     &partyspeed Ｄ速度
  5354.     &if(ナカラ==1){
  5355.         &partyset 0,1,2,3
  5356.     }&else{
  5357.         &partyset 0,1,2
  5358.     }
  5359.     &if(遺跡内==0){
  5360.         &bgm 20
  5361.         &bgm 20
  5362.     }
  5363.     %mandef(1)={$0,2,$00,2,-1}        //石像
  5364.     %mandef(2)={$0,2,$00,2,-1}        //石像
  5365.     %mandef(3)={$0,2,$00,2,-1}        //石像
  5366.     %mandef(4)={$0,2,$00,2,-1}        //石像
  5367.     &commenu 1
  5368.  
  5369.     &jsr 巨大化
  5370.     &if(地名表示==0 and 遺跡内==0){
  5371.         &monsprint 44,100,Ｍ９,1
  5372.         &monsprint 128,100,Ｍ１０,1
  5373.         &wait 100
  5374.         &monsprint 0,10,消し
  5375.         &monsprint 128,10,消し
  5376.     }
  5377.  
  5378. #@0    &if(%direc<0){
  5379.         遺跡内=0
  5380.         &goto2 FIELD,24,8,2
  5381.     }
  5382. #@1    &if(%direc<0){
  5383.         遺跡内=1
  5384.         &goto DUN3
  5385.     }
  5386. #1    !o(1)j(2)石像;j(0)秘石を３つ以上取ってから、お店に行くと商品がかわるよーんpc
  5387. #2    !o(1)j(2)石像;j(0)秘石を３つ以上取ってから、町の空き家に行くと女の子がいるよーんpc
  5388. #3    !o(1)j(2)石像;j(0)女の子を連れて村の牧場に行くと怪しい生き物がいるよーんpc
  5389. #4    !o(1)j(2)石像;j(0)変身アイテムはj(2)町のお婆さんj(0)とj(2)蛙j(0)とj(2)宝にわj(0)が持ってるよーんpc
  5390.  
  5391. //▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
  5392.  
  5393.     [DUN3]                    //遺跡の地下
  5394.  
  5395. //    ■■■■　　■　　　■　■　　　■　■■■■■
  5396. //    ■　　　■　■　　　■　■■　　■　■　　　■
  5397. //    ■　　　■　■　　　■　■　■　■　　　■■
  5398. //    ■　　　■　■　　　■　■　　■■　■　　　■
  5399. //    ■■■■　　　■■■　　■　　　■　■■■■■
  5400.  
  5401. //▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
  5402.     &sppsp PTN\DUN3.SPP
  5403.     &map MAP\DUN3.MAP
  5404.     &mapsp PTN\DUN3.SP
  5405.     &mappal PTN\DUN3A.PAL
  5406.     &partyspeed Ｄ速度
  5407.     //%partypoint={157,265,8}
  5408.     %partypoint={17,296,8}
  5409.     &ldef 上下    //0:上,1:下
  5410.     &ldef 脱出
  5411.     &ldef スイッチ1
  5412.     &ldef スイッチ2
  5413.     &ldef スイッチ3
  5414.     &def 正順
  5415.     &ldef 押し
  5416.     
  5417.  
  5418.     %mandef(7)={$6,0,$80,2,0}        //石像用
  5419.     %mandef(8)={$6,0,$80,2,0}        //石像用
  5420.     %mandef(9)={$6,0,$80,2,0}        //石像用
  5421.     %mandef(10)={$6,0,$80,2,0}        //石像用
  5422.  
  5423.     &if(正順<3){
  5424.     //%mandef(11)={$3,0,$00,8,-1}        //スイッチ
  5425.     //%mandef(12)={$3,0,$00,8,-1}        //スイッチ
  5426.     //%mandef(13)={$3,0,$00,8,-1}        //スイッチ
  5427.     //}&else{
  5428.     %mandef(11)={$3,0,$00,6,-1}        //スイッチ
  5429.     %mandef(12)={$3,0,$00,6,-1}        //スイッチ
  5430.     %mandef(13)={$3,0,$00,6,-1}        //スイッチ
  5431.     %mandef(1)={$1,0,$20,2,0}        //壁
  5432.     %mandef(2)={$1,0,$20,2,0}        //壁
  5433.     %mandef(3)={$1,0,$20,2,0}        //壁
  5434.     %mandef(4)={$1,0,$20,2,0}        //壁
  5435.     //%mandef(5)={$2,0,$60,2,0}        //モンスター
  5436.     }
  5437.     &if(タロス死==0){
  5438.     %mandef(14)={$2,0,$40,4,0}        //仮面
  5439.     %mandef(15)={$2,0,$40,4,0}        //仮面
  5440.     %mandef(16)={$2,0,$40,4,0}        //仮面
  5441.     }
  5442. //セーブ＆回復鶏
  5443.     %mandef(6)={$A,1,$E0,2,0}        //鶏
  5444. //空っぽ宝箱
  5445.     %mandef(23)={$3,0,$00,2,-1}        //お宝（閉じ）
  5446.     %mandef(24)={$3,0,$00,2,-1}        //お宝（閉じ）
  5447.     %mandef(28)={$3,0,$00,2,-1}        //お宝（閉じ）
  5448. //モンスター入り宝箱
  5449.     %mandef(17)={$3,0,$00,2,-1}        //お宝（閉じ）
  5450.     %mandef(19)={$3,0,$00,2,-1}        //お宝（閉じ）
  5451.     %mandef(20)={$3,0,$00,2,-1}        //お宝（閉じ）
  5452.     %mandef(22)={$3,0,$00,2,-1}        //お宝（閉じ）
  5453.     %mandef(25)={$3,0,$00,2,-1}        //お宝（閉じ）
  5454.     %mandef(26)={$3,0,$00,2,-1}        //お宝（閉じ）
  5455. //お宝
  5456.     &if(宝25==0){
  5457.         %mandef(18)={$3,0,$00,2,-1}        //お宝（閉じ）
  5458.     }&else{
  5459.         %mandef(18)={$3,0,$00,4,-1}        //お宝（開き）
  5460.     }
  5461.     &if(宝26==0){
  5462.         %mandef(21)={$3,0,$00,2,-1}        //お宝（閉じ）
  5463.     }&else{
  5464.         %mandef(21)={$3,0,$00,4,-1}        //お宝（開き）
  5465.     }
  5466.     &if(宝27==0){
  5467.         %mandef(27)={$3,0,$00,2,-1}        //お宝（閉じ）
  5468.     }&else{
  5469.         %mandef(27)={$3,0,$00,4,-1}        //お宝（開き）
  5470.     }
  5471.     &if(宝28==0){
  5472.         %mandef(29)={$3,0,$00,2,-1}        //お宝（閉じ）
  5473.     }&else{
  5474.         %mandef(29)={$3,0,$00,4,-1}        //お宝（開き）
  5475.     }
  5476.     &if(宝29==0){
  5477.         %mandef(30)={$3,0,$00,2,-1}        //お宝（閉じ）
  5478.     }&else{
  5479.         %mandef(30)={$3,0,$00,4,-1}        //お宝（開き）
  5480.     }
  5481.     &if(宝30==0){
  5482.         %mandef(31)={$3,0,$00,2,-1}        //お宝（閉じ）
  5483.     }&else{
  5484.         %mandef(31)={$3,0,$00,4,-1}        //お宝（開き）
  5485.     }
  5486. //移動イベント
  5487. #@0    &if(%direc<0){&goto2 ISEKI,23,19,2}
  5488.  
  5489. #@1    &if(%direc<0){
  5490.     &if(%py<280){
  5491.         &mappal PTN\DUN3A.PAL
  5492.         &move 14,287,4
  5493.     }&else{
  5494.         &mappal PTN\DUN3B.PAL
  5495.         &move 24,257,6
  5496.     }
  5497.     }
  5498. #@2    &if(%direc<0){
  5499.     &if(%px<40){
  5500.         &mappal PTN\DUN3C.PAL
  5501.         &move 53,265,6
  5502.     }&else{
  5503.         &mappal PTN\DUN3B.PAL
  5504.         &move 16,257,6
  5505.     }
  5506.     }
  5507. #@3    &if(%direc<0){
  5508.     &if(%px<40){
  5509.         &mappal PTN\DUN3C.PAL
  5510.         &move 76,265,4
  5511.     }&else{
  5512.         &mappal PTN\DUN3B.PAL
  5513.         &move 26,257,4
  5514.     }
  5515.     }
  5516. #@4    &if(%direc<0){
  5517.     &if(%px<90){
  5518.         &mappal PTN\DUN3D.PAL
  5519.         &move 102,207,4
  5520.     }&else{
  5521.         &mappal PTN\DUN3C.PAL
  5522.         &move 59,271,4
  5523.     }
  5524.     }
  5525. #@5    &if(%direc<0){
  5526.     &if(%px<90){
  5527.         &mappal PTN\DUN3D.PAL
  5528.         &move 113,207,6
  5529.     }&else{
  5530.         &mappal PTN\DUN3C.PAL
  5531.         &move 70,271,6
  5532.     }
  5533.     }
  5534. #@6    &if(%direc<0){
  5535.     &if(%px<90){
  5536.         &mappal PTN\DUN3D.PAL
  5537.         &move 95,136,2
  5538.     }&else{
  5539.         上下=0
  5540.         &pcm 5
  5541.         &mappal PTN\DUN3D.PAL
  5542.         &move 95,170,8
  5543.         //&mappal PTN\DUN3E.PAL
  5544.         //&move 21,178,8
  5545.     }
  5546.     }
  5547. #@7    &if(%direc<0){
  5548.         上下=0
  5549.         &pcm 13
  5550.         脱出=1
  5551.         &mappal PTN\DUN3E.PAL
  5552.         &move 37,178,8
  5553.     }
  5554. #@8    &if(%direc<0){
  5555.     &if(%px<90){
  5556.         &mappal PTN\DUN3D.PAL
  5557.         &move 104,278,8
  5558.     }&else{
  5559.         上下=1
  5560.         脱出=1
  5561.         &pcm 13
  5562.         &mappal PTN\DUN3E.PAL
  5563.         &move 21,124,2
  5564.     }
  5565.     }
  5566. #@9    &if(%direc<0){
  5567.         上下=1
  5568.         &pcm 5
  5569.         &mappal PTN\DUN3D.PAL
  5570.         &move 120,244,2
  5571.         //&mappal PTN\DUN3E.PAL
  5572.         //&move 37,124,2
  5573.     }
  5574. #@10    &if(%direc<0){
  5575.     &if(上下==0){
  5576.         脱出=0
  5577.         &mappal PTN\DUN3D.PAL
  5578.         &move 95,136,2
  5579.     }&else{
  5580.         &switch(脱出){
  5581.             &case(3):
  5582.                 &pcm 13
  5583.                 脱出=4
  5584.                 &move 21,124,2
  5585.                 &break
  5586.             &case(4):
  5587.                 &pcm 13
  5588.                 脱出=0
  5589.                 &move 21,206,2
  5590.                 &break
  5591.             &default:
  5592.                 &pcm 5
  5593.                 脱出=0
  5594.                 &mappal PTN\DUN3D.PAL
  5595.                 &move 120,244,2
  5596.         }
  5597.     }
  5598.     }
  5599. #@11    &if(%direc<0){
  5600.     &if(上下==0){
  5601.         脱出=0
  5602.         &mappal PTN\DUN3D.PAL
  5603.         &move 111,136,2
  5604.     }&else{
  5605.         &switch(脱出){
  5606.             &case(1):
  5607.                 &pcm 13
  5608.                 脱出=2
  5609.                 &break
  5610.             &case(2):
  5611.                 &pcm 13
  5612.                 脱出=3
  5613.                 &break
  5614.             &default:
  5615.                 &pcm 5
  5616.                 脱出=0
  5617.                 &mappal PTN\DUN3D.PAL
  5618.                 &move 120,244,2
  5619.                 &&
  5620.         }
  5621.         &move 37,124,2
  5622.     }
  5623.     }
  5624. #@12    &if(%direc<0){
  5625.     &if(上下==0){
  5626.         &switch(脱出){
  5627.             &case(1):
  5628.                 &pcm 13
  5629.                 脱出=2
  5630.                 &break
  5631.             &case(2):
  5632.                 &pcm 13
  5633.                 脱出=3
  5634.                 &break
  5635.             &case(3):
  5636.                 &pcm 13
  5637.                 脱出=4
  5638.                 &break
  5639.             &default:
  5640.                 &pcm 5
  5641.                 脱出=0
  5642.                 &mappal PTN\DUN3D.PAL
  5643.                 &move 95,170,8
  5644.                 &&
  5645.         }
  5646.         &move 21,178,8
  5647.     }&else{
  5648.         脱出=0
  5649.         &mappal PTN\DUN3D.PAL
  5650.         &move 104,278,8
  5651.     }
  5652.     }
  5653. #@13    &if(%direc<0){
  5654.     &if(上下==0){
  5655.         &switch(脱出){
  5656.             &case(4):
  5657.                 &pcm 13
  5658.                 脱出=0
  5659.                 &move 55,223,8
  5660.                 &break
  5661.             &default:
  5662.                 &pcm 5
  5663.                 脱出=0
  5664.                 &mappal PTN\DUN3D.PAL
  5665.                 &move 95,170,8
  5666.                 //&move 37,178,8
  5667.         }
  5668.     }&else{
  5669.         脱出=0
  5670.         &mappal PTN\DUN3D.PAL
  5671.         &move 120,278,8
  5672.     }
  5673.     }
  5674. #@14    &if(%direc<0){
  5675.     &if(%py<70){
  5676.         &move 58,211,6
  5677.     }&else{
  5678.         &move 88,19,4
  5679.     }
  5680.     }
  5681. #@15    &if(%direc<0){
  5682.     &if(%py<100){
  5683.         &move 24,218,6
  5684.     }&else{
  5685.         &move 54,83,4
  5686.     }
  5687.     }
  5688. #@16    &if(%direc<0){
  5689.     &if(%px<100){
  5690.         &move 167,13,4
  5691.     }&else{
  5692.         &move 82,19,6
  5693.     }
  5694.     }
  5695. #@17    &if(%direc<0){
  5696.     &if(%px<100){
  5697.         &move 118,14,6
  5698.     }&else{
  5699.         &move 22,19,4
  5700.     }
  5701.     }
  5702. #@18    &if(%direc<0){
  5703.     &if(%px<150){
  5704.         &move 180,263,6
  5705.     }&else{
  5706.         &move 112,37,4
  5707.         &if(正順==3){&&}
  5708.         %mandef(11)={$1,0,$00,6,-1}    //スイッチ
  5709.         %mandef(12)={$1,0,$00,6,-1}    //スイッチ
  5710.         %mandef(13)={$1,0,$00,6,-1}    //スイッチ
  5711.         &on
  5712.         押し=0
  5713.         正順=0
  5714.         スイッチ1=0
  5715.         スイッチ2=0
  5716.         スイッチ3=0
  5717.     }
  5718.     }
  5719. //落とし穴
  5720. #@19    &if(%direc<0){
  5721.         &partymove -2,-4,-8,-6,-2
  5722.         &pcm 11
  5723.         &move (%px+90),(%py-6),2
  5724.         &se 21
  5725.     }
  5726. //タロス
  5727. #@20    &if(%direc<0){
  5728.         &if(タロス死==0){
  5729.             !o(1)j(2)タロスj(0);w・w・w・進入者発見;直ちに排除するpc
  5730.             &bgm 33
  5731.             &se 23
  5732.             &manmove 15,-2,2,2,2,2,2,2,2
  5733.             &manmove 14,-2,2,2,2,2,2,2,2
  5734.             &manmove 16,-2,2,2,2,2,2,2,2
  5735.             &if(主人公==0){
  5736.                 &monsprint 24,80,少年
  5737.                 !o(1)j(2)|(0);j(0)げっ、いきなりかよpc
  5738.             }&else{
  5739.                 &monsprint 24,80,少女
  5740.                 !o(1)j(2)|(0);j(0)えっ、もう来るの;少しお話ししたかったなpc
  5741.             }
  5742.             魔=5
  5743.             力=10
  5744.             &se 22
  5745.             &battle $1000,15,タロス,1,0,0,0,0
  5746.             &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  5747.             &bgm 20
  5748.             &bgm 20
  5749.             秘石=秘石+1
  5750.             &bgm 24
  5751.             &wait 780
  5752.             &bgm 20
  5753.             !o(1)j(2)第f(秘石)の秘石j(0)を手に入れた！pc
  5754.             &jsr 食事
  5755.             タロス死=1
  5756.             %manpoint(14)={1000,1000}
  5757.             %manpoint(15)={1000,1000}
  5758.             %manpoint(16)={1000,1000}
  5759.             &on
  5760.             &jsr 石チェック
  5761.             %systime=0
  5762.         }
  5763.     }
  5764.  
  5765. #7    &if(%direc>0){
  5766.         !o(1)j(2)石像j(0);この先、迷いの廊下なり;下に行く道は左右右左左pc
  5767.     }
  5768. #8    &if(%direc>0){
  5769.         !o(1)j(2)石像j(0);この先、迷いの廊下なり;上に行く道は右左左左右pc
  5770.     }
  5771. #9    &if(%direc>0){
  5772.         !o(1)j(2)石像j(0);この先、転落の廊下なり;屍を避けて進むべしpc
  5773.     }
  5774. #10    &if(%direc>0){
  5775.         !o(1)j(2)石像j(0);この先、最後の壁なり;３つのボタンを正しい順で押すことにより道は開けるpc
  5776.     }
  5777. //スイッチ
  5778.  
  5779. #11    &if(正順==3){&&}
  5780.     &if(スイッチ1==0){
  5781.         &pcm 8
  5782.         %mandef(11)={$1,0,$00,8,0}    //スイッチ
  5783.         &on
  5784.         &manmove 11,-8
  5785.         %mandef(11)={$1,0,$00,8,-1}    //スイッチ
  5786.         &on
  5787.         押し=押し+1
  5788.         スイッチ1=1
  5789.         &if(正順==1){
  5790.             正順=2
  5791.         }&else{
  5792.             正順=0
  5793.         }
  5794.         &if(押し==3){&jsr スイッチ×}
  5795.     }
  5796. #12    &if(正順==3){&&}
  5797.     &if(スイッチ2==0){
  5798.         &pcm 8
  5799.         %mandef(12)={$1,0,$00,8,0}    //スイッチ
  5800.         &on
  5801.         &manmove 12,-8
  5802.         %mandef(12)={$1,0,$00,8,-1}    //スイッチ
  5803.         &on
  5804.         押し=押し+1
  5805.         スイッチ2=1
  5806.         &if(正順==0){正順=1}
  5807.         &if(押し==3){&jsr スイッチ×}
  5808.     }
  5809. #13    &if(正順==3){&&}
  5810.     &if(スイッチ3==0){
  5811.         &pcm 8
  5812.         %mandef(13)={$1,0,$00,8,0}    //スイッチ
  5813.         &on
  5814.         &manmove 13,-8
  5815.         %mandef(13)={$1,0,$00,8,-1}    //スイッチ
  5816.         &on
  5817.         押し=押し+1
  5818.         スイッチ3=1
  5819.         &if(正順==2){
  5820.             &pcm 4
  5821.             &manmove 1,-4
  5822.             &wait 10
  5823.             &pcm 4
  5824.             &manmove 2,-4
  5825.             &wait 10
  5826.             &pcm 4
  5827.             &manmove 3,-4
  5828.             &wait 10
  5829.             &pcm 4
  5830.             &manmove 4,-4
  5831.             &manmove 1,-6
  5832.             &wait 10
  5833.             &pcm 4
  5834.             &manmove 2,-6
  5835.             &wait 10
  5836.             &pcm 4
  5837.             &manmove 3,-6
  5838.             &wait 10
  5839.             &pcm 4
  5840.             &manmove 4,-6
  5841.             &pcm 4
  5842.             &manmove 1,-8
  5843.             &wait 10
  5844.             &pcm 4
  5845.             &manmove 2,-8
  5846.             &wait 10
  5847.             &pcm 4
  5848.             &manmove 3,-8
  5849.             &wait 10
  5850.             &pcm 4
  5851.             &manmove 4,-8
  5852.             &pcm 4
  5853.             正順=3
  5854.             %manpoint(1)={1000,1000}
  5855.             %manpoint(2)={1000,1000}
  5856.             %manpoint(3)={1000,1000}
  5857.             %manpoint(4)={1000,1000}
  5858.             %manpoint(11)={1000,1000}
  5859.             %manpoint(12)={1000,1000}
  5860.             %manpoint(13)={1000,1000}
  5861.         //    %manpoint(5)={1000,1000}
  5862.             &on
  5863.         }&else{
  5864.             正順=0
  5865.             &if(押し==3){&jsr スイッチ×}
  5866.         }
  5867.     }
  5868.     &&
  5869. &label スイッチ×
  5870.     &pcm 5
  5871.     &se 23
  5872. //    %manpoint(5)={157,240}
  5873. //    &on
  5874. //    %mandef(5)={$2,0,$60,2,1}        //モンスター
  5875. //    &on
  5876. //    &manmove 5,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  5877.     //&wait 150
  5878.     &se 22
  5879.     魔=2
  5880.     力=3
  5881.     &battle $1000,15,トラップ,1,0,0,0,0
  5882.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  5883.     &if(絶食==0){
  5884.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  5885.     }
  5886. //    %mandef(5)={$2,0,$60,2,-1}        //モンスター
  5887.     //%manpoint(5)={157,240}
  5888.     //&on
  5889. //    %manpoint(5)={1000,1000}
  5890. //    &on
  5891.     %mandef(11)={$1,0,$00,6,0}    //スイッチ
  5892.     %mandef(12)={$1,0,$00,6,0}    //スイッチ
  5893.     %mandef(13)={$1,0,$00,6,0}    //スイッチ
  5894.     &on
  5895.     &manmove 11,-6
  5896.     &manmove 12,-6
  5897.     &manmove 13,-6
  5898.     %mandef(11)={$1,0,$00,6,-1}    //スイッチ
  5899.     %mandef(12)={$1,0,$00,6,-1}    //スイッチ
  5900.     %mandef(13)={$1,0,$00,6,-1}    //スイッチ
  5901.     &on
  5902.     押し=0
  5903.     正順=0
  5904.     スイッチ1=0
  5905.     スイッチ2=0
  5906.     スイッチ3=0
  5907.     %systime=0
  5908. &rts
  5909. #6    &if(にわ7==0){
  5910.         にわ7=1
  5911.         !o(1)j(2)イリナj(0);ども;セーブ＆回復鶏のイリナっす;
  5912.         !どぉします？p;
  5913.     }&else{
  5914.         !o(1)j(2)イリナj(0);どぉします？p;
  5915.     }
  5916.     %selectlist={セーブ,回復}
  5917.     選択=%select
  5918.     &switch(選択){
  5919.         &case(0):
  5920.             !セーブっすねp
  5921.             &save 100,102,200,-8
  5922.             &break
  5923.         &case(1):
  5924.             !回復っすねp
  5925.             &se 26
  5926.             &freash $003E
  5927.             &wait 50
  5928.             &complete
  5929.             &break
  5930.         &default:
  5931.             !そぉすかp
  5932.     }
  5933.     !o(1)j(2)イリナj(0);んじゃ、またpc
  5934.     &manmove 6,-2
  5935. //ロードはここ
  5936. #100    &mappal PTN\DUN3D.PAL
  5937.     &commenu 1
  5938.     &bgm 20
  5939.     &bgm 20
  5940.     !o(1)j(2)イリナ;j(0)おかえりっす;んじゃ、がんばってpc
  5941. //宝箱
  5942. //空っぽ宝箱
  5943. #23    &jsr 宝箱処理３
  5944. #24    &jsr 宝箱処理３
  5945. #28    &jsr 宝箱処理３
  5946.  
  5947. //モンスター入り宝箱
  5948. #17    %mandef(%manno)={$3,0,$00,2,0}
  5949.     &on
  5950.     &pcm 2
  5951.     &manmove %manno,-4
  5952.     !o(1)宝箱からモンスターが現れた！pc
  5953.     &se 22
  5954.     魔=2
  5955.     力=-1
  5956.     &battle $1000,15,コカトリス,3,0,0,0,0
  5957.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  5958.     &if(絶食==0){
  5959.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  5960.     }
  5961.     %systime=0
  5962.     &manmove %manno,-2
  5963.     %mandef(%manno)={$3,0,$00,2,-1}
  5964.     &on
  5965. #19    %mandef(%manno)={$3,0,$00,2,0}
  5966.     &on
  5967.     &pcm 2
  5968.     &manmove %manno,-4
  5969.     !o(1)宝箱からモンスターが現れた！pc
  5970.     &se 22
  5971.     魔=-3
  5972.     力=5
  5973.     &battle $1000,15,ゴーレム,2,0,0,0,0
  5974.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  5975.     &if(絶食==0){
  5976.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  5977.     }
  5978.     %systime=0
  5979.     &manmove %manno,-2
  5980.     %mandef(%manno)={$3,0,$00,2,-1}
  5981.     &on
  5982. #20    %mandef(%manno)={$3,0,$00,2,0}
  5983.     &on
  5984.     &pcm 2
  5985.     &manmove %manno,-4
  5986.     !o(1)宝箱からモンスターが現れた！pc
  5987.     &se 22
  5988.     魔=1
  5989.     力=5
  5990.     &battle $1000,15,サイクロプス,1,0,0,0,0
  5991.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  5992.     &if(絶食==0){
  5993.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  5994.     }
  5995.     %systime=0
  5996.     &manmove %manno,-2
  5997.     %mandef(%manno)={$3,0,$00,2,-1}
  5998.     &on
  5999. #22    %mandef(%manno)={$3,0,$00,2,0}
  6000.     &on
  6001.     &pcm 2
  6002.     &manmove %manno,-4
  6003.     !o(1)宝箱からモンスターが現れた！pc
  6004.     &se 22
  6005.     魔=0
  6006.     力=2
  6007.     &battle $1000,15,リザードマン,3,0,0,0,0
  6008.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  6009.     &if(絶食==0){
  6010.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  6011.     }
  6012.     %systime=0
  6013.     &manmove %manno,-2
  6014.     %mandef(%manno)={$3,0,$00,2,-1}
  6015.     &on
  6016. #25    %mandef(%manno)={$3,0,$00,2,0}
  6017.     &on
  6018.     &pcm 2
  6019.     &manmove %manno,-4
  6020.     !o(1)宝箱からモンスターが現れた！pc
  6021.     &se 22
  6022.     魔=2
  6023.     力=-1
  6024.     &battle $1000,15,コカトリス,2,0,0,0,0
  6025.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  6026.     &if(絶食==0){
  6027.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  6028.     }
  6029.     %systime=0
  6030.     &manmove %manno,-2
  6031.     %mandef(%manno)={$3,0,$00,2,-1}
  6032.     &on
  6033. #26    %mandef(%manno)={$3,0,$00,2,0}
  6034.     &on
  6035.     &pcm 2
  6036.     &manmove %manno,-4
  6037.     !o(1)宝箱からモンスターが現れた！pc
  6038.     &se 22
  6039.     魔=4
  6040.     力=0
  6041.     &battle $1000,15,リリム,2,0,0,0,0
  6042.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  6043.     &if(絶食==0){
  6044.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  6045.     }
  6046.     %systime=0
  6047.     &manmove %manno,-2
  6048.     %mandef(%manno)={$3,0,$00,2,-1}
  6049.     &on
  6050. //宝箱２５（）            //宝の中身がアイテムの場合
  6051. #18    &if(宝25==0){            //フラグが立っていない（宝をまだ取っていない）時
  6052.         &pcm 2
  6053.         宝=竜の牙        //アイテム（宝箱の中身）
  6054.         &jsr 宝箱処理１        //アイテムの場合はこのサブルーチン
  6055.         &if(宝フラグ==1){宝25=1}//アイテムを取ることが出来たら
  6056.     }&else{                //フラグが立っていた（宝を取ってある）時
  6057.         !o(1)からっぽですpc
  6058.     }
  6059. //宝箱２６（）            //宝の中身がアイテムの場合
  6060. #21    &if(宝26==0){            //フラグが立っていない（宝をまだ取っていない）時
  6061.         &pcm 2
  6062.         &if(主人公==0){
  6063.             宝=緑の魔石        //アイテム（宝箱の中身）
  6064.         }&else{
  6065.             宝=宇宙の杖        //アイテム（宝箱の中身）
  6066.         }
  6067.         &jsr 宝箱処理１        //アイテムの場合はこのサブルーチン
  6068.         &if(宝フラグ==1){宝26=1}//アイテムを取ることが出来たら
  6069.     }&else{                //フラグが立っていた（宝を取ってある）時
  6070.         !o(1)からっぽですpc
  6071.     }
  6072. //宝箱２７（）            //宝の中身がアイテムの場合
  6073. #27    &if(宝27==0){            //フラグが立っていない（宝をまだ取っていない）時
  6074.         &pcm 2
  6075.         金=5000            //アイテム（宝箱の中身）
  6076.         &jsr 宝箱処理２        //アイテムの場合はこのサブルーチン
  6077.         &if(宝フラグ==1){宝27=1}//アイテムを取ることが出来たら
  6078.     }&else{                //フラグが立っていた（宝を取ってある）時
  6079.         !o(1)からっぽですpc
  6080.     }
  6081. //宝箱２８（）            //宝の中身がアイテムの場合
  6082. #29    &if(宝28==0){            //フラグが立っていない（宝をまだ取っていない）時
  6083.         &pcm 2
  6084.         宝=紫の魔石        //アイテム（宝箱の中身）
  6085.         &jsr 宝箱処理１        //アイテムの場合はこのサブルーチン
  6086.         &if(宝フラグ==1){宝28=1}//アイテムを取ることが出来たら
  6087.     }&else{                //フラグが立っていた（宝を取ってある）時
  6088.         !o(1)からっぽですpc
  6089.     }
  6090. //宝箱２９（）            //宝の中身がアイテムの場合
  6091. #30    &if(宝29==0){            //フラグが立っていない（宝をまだ取っていない）時
  6092.         &pcm 2
  6093.         宝=ダイヤモンド        //アイテム（宝箱の中身）
  6094.         &jsr 宝箱処理１        //アイテムの場合はこのサブルーチン
  6095.         &if(宝フラグ==1){宝29=1}//アイテムを取ることが出来たら
  6096.     }&else{                //フラグが立っていた（宝を取ってある）時
  6097.         !o(1)からっぽですpc
  6098.     }
  6099. //宝箱３０（）            //宝の中身がアイテムの場合
  6100. #31    &if(宝30==0){            //フラグが立っていない（宝をまだ取っていない）時
  6101.         &pcm 2
  6102.         宝=黒の魔石        //アイテム（宝箱の中身）
  6103.         &jsr 宝箱処理１        //アイテムの場合はこのサブルーチン
  6104.         &if(宝フラグ==1){宝30=1}//アイテムを取ることが出来たら
  6105.     }&else{                //フラグが立っていた（宝を取ってある）時
  6106.         !o(1)からっぽですpc
  6107.     }
  6108.  
  6109. //壁
  6110. #1
  6111. #2
  6112. #3
  6113. #4
  6114. //戦闘イベント
  6115. #@47    &if(%direc>=0){&&}        //ｲﾍﾞﾝﾄ上、ｲﾍﾞﾝﾄに向かってﾎﾞﾀﾝが押されたら処理中断
  6116.     &if(%rnd(100)>8){&&}        //乱数が8より大きければ処理中断
  6117.     &if(%systime<100){&&}        //前回の戦闘から10ターン経っていなければ処理中断
  6118.     &if(もん==1){&&}        //でばぐ
  6119.     所持金=%gold
  6120.         &switch(%rnd(2)){
  6121.             &case(0):
  6122.                 魔物=リザードマン
  6123.                 魔物数=%rnd(2)+1
  6124.                 魔=0
  6125.                 力=2
  6126.                 &break
  6127.             &case(1):
  6128.                 魔物=コカトリス
  6129.                 魔物数=%rnd(2)+2
  6130.                 魔=2
  6131.                 力=-1
  6132.         }
  6133.     &se 22
  6134.     &battle 0,15,魔物,魔物数,0,0,0,0
  6135.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  6136.     &if(絶食==0){
  6137.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  6138.     }
  6139.     %systime=0
  6140. #@48    &if(%direc>=0){&&}        //ｲﾍﾞﾝﾄ上、ｲﾍﾞﾝﾄに向かってﾎﾞﾀﾝが押されたら処理中断
  6141.     &if(%rnd(100)>8){&&}        //乱数が8より大きければ処理中断
  6142.     &if(%systime<100){&&}        //前回の戦闘から10ターン経っていなければ処理中断
  6143.     &if(もん==1){&&}        //でばぐ
  6144.     所持金=%gold
  6145.         &switch(%rnd(2)){
  6146.             &case(0):
  6147.                 魔物=リリム
  6148.                 魔物数=%rnd(2)+1
  6149.                 魔=4
  6150.                 力=0
  6151.                 &break
  6152.             &case(1):
  6153.                 魔物=ゴーレム
  6154.                 魔物数=1
  6155.                 魔=-3
  6156.                 力=5
  6157.         }
  6158.     &se 22
  6159.     &battle 0,15,魔物,魔物数,0,0,0,0
  6160.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  6161.     &if(絶食==0){
  6162.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  6163.     }
  6164.     %systime=0
  6165. #@49    &if(%direc>=0){&&}        //ｲﾍﾞﾝﾄ上、ｲﾍﾞﾝﾄに向かってﾎﾞﾀﾝが押されたら処理中断
  6166.     &if(%rnd(100)>8){&&}        //乱数が8より大きければ処理中断
  6167.     &if(%systime<100){&&}        //前回の戦闘から10ターン経っていなければ処理中断
  6168.     &if(もん==1){&&}        //でばぐ
  6169.     所持金=%gold
  6170.         &switch(%rnd(2)){
  6171.             &case(0):
  6172.                 魔物=リリム
  6173.                 魔物数=%rnd(3)+1
  6174.                 魔=4
  6175.                 力=0
  6176.                 &break
  6177.             &case(1):
  6178.                 魔物=サイクロプス
  6179.                 魔物数=1
  6180.                 魔=1
  6181.                 力=5
  6182.         }
  6183.     &se 22
  6184.     &battle 0,15,魔物,魔物数,0,0,0,0
  6185.     &if(%exitcode!=0){&jmp 死亡}    //全滅して終了
  6186.     &if(絶食==0){
  6187.     &if(所持金!=%gold){&jsr 食事}    //勝利して終了（逃げた時は入らない）
  6188.     }
  6189.     %systime=0
  6190.     &&
  6191. &label 死亡
  6192.     &bgm 18
  6193.     !o(0):j(1)w・w・w・w　ＧＡＭＥ　ＯＶＥＲ　w・w・w・wwwwpc
  6194.     &bgm -1
  6195.     &load
  6196.     &reset
  6197. //▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
  6198.     [END]                    //エンディング
  6199.  
  6200. //    ■■■■■　■　　　■　■■■■
  6201. //    ■　　　　　■■　　■　■　　　■
  6202. //    ■■■■■　■　■　■　■　　　■
  6203. //    ■　　　　　■　　■■　■　　　■
  6204. //    ■■■■■　■　　　■　■■■■
  6205.  
  6206. //▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
  6207.     &sppsp PTN\MURA.SPP
  6208.     &map MAP\END.MAP
  6209.     &mapsp PTN\ENDMAP.SP
  6210.     &mappal PTN\ENDMAP.PAL
  6211.     &patternpal END\END.PAL
  6212.     %partypoint={15,47,8}
  6213.     &partyset 10
  6214.     &partyspeed 2
  6215.     &ldef 文字Ｑ
  6216.  
  6217.     &on
  6218.     
  6219. //    &jmp @f        //えんでぃんぐ２へ
  6220.     
  6221.     &partymove 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
  6222.     &pcm 1
  6223.     &freash 65535
  6224.     &wait 200
  6225.     &bgm 36
  6226.     &wait 50
  6227.     &monsprint 0,32,終７,1
  6228.     &wait 50
  6229.     &monsprint 144,32,終８,2
  6230.     &wait 50
  6231. //メッセージ１
  6232.     文字Ｑ=終Ｍ１Ａ
  6233.     &jsr 文字文字Ｑ
  6234.     
  6235.     %monsdef(終消し) ={$7,0,0,0,0,0,0,0,0,0}
  6236.     &monsprint 0,32,終消し,1
  6237.     %monsdef(終消し) ={$8,0,0,0,0,0,0,0,0,0}
  6238.     &monsprint 144,32,終消し,2
  6239.     
  6240.     &monsprint 0,32,終１,1
  6241.     &wait 50
  6242.     &monsprint 144,32,終２,2
  6243.     &wait 50
  6244. //メッセージ２
  6245.     文字Ｑ=終Ｍ２Ａ
  6246.     &jsr 文字文字Ｑ
  6247.  
  6248.     %monsdef(終消し) ={$1,0,0,0,0,0,0,0,0,0}
  6249.     &monsprint 0,32,終消し,1
  6250.     %monsdef(終消し) ={$2,0,0,0,0,0,0,0,0,0}
  6251.     &monsprint 144,32,終消し,2
  6252. //グラフィック
  6253.     &monsprint 0,32,終３,1
  6254.     &wait 50
  6255.     &monsprint 144,32,終４,2
  6256.     &wait 50
  6257.     
  6258. //メッセージ３
  6259.     文字Ｑ=終Ｍ３Ａ
  6260.     &jsr 文字文字Ｑ
  6261.     %monsdef(終消し) ={$3,0,0,0,0,0,0,0,0,0}
  6262.     &monsprint 0,32,終消し,1
  6263.     %monsdef(終消し) ={$4,0,0,0,0,0,0,0,0,0}
  6264.     &monsprint 144,32,終消し,2
  6265. //グラフィック
  6266.     &monsprint 0,32,終５,1
  6267.     &wait 50
  6268.     &monsprint 144,32,終６,2
  6269.     &wait 50
  6270. //メッセージ４
  6271.     
  6272.     文字Ｑ=終Ｍ４Ａ
  6273.     &jsr 文字文字Ｑ
  6274.     %monsdef(終消し) ={$5,0,0,0,0,0,0,0,0,0}
  6275.     &monsprint 0,32,終消し,1
  6276.     %monsdef(終消し) ={$6,0,0,0,0,0,0,0,0,0}
  6277.     &monsprint 144,32,終消し,2
  6278.     
  6279.     &wait 200
  6280.     &monsprint 16,40,終９,1
  6281.     &monsprint 128,40,終１０,2
  6282.     &wait 150
  6283.     &monsprint 76,184,ＥＮＤ,0
  6284.     &wait 400
  6285.     &bgm -1
  6286.     &contrast 0
  6287.     &wait 200
  6288.     &mappal PTN\KURO.PAL
  6289. //&label
  6290.     &goto END2
  6291.     
  6292.     &&
  6293. &label 文字文字Ｑ
  6294.     &monsprint 0,165,文字Ｑ,0
  6295.     &monsprint 128,165,文字Ｑ+1,0
  6296.     &wait 10
  6297.     %monsdef(文字Ｑ) ={$C,0,0,0,0,0,0,0,0,0}
  6298.     %monsdef(文字Ｑ+1) ={$C,0,0,0,0,0,0,0,0,0}
  6299.     &monsprint 0,165,文字Ｑ,0
  6300.     &monsprint 128,165,文字Ｑ+1,0
  6301.     &wait 10
  6302.     %monsdef(文字Ｑ) ={$B,0,0,0,0,0,0,0,0,0}
  6303.     %monsdef(文字Ｑ+1) ={$B,0,0,0,0,0,0,0,0,0}
  6304.     &monsprint 0,165,文字Ｑ,0
  6305.     &monsprint 128,165,文字Ｑ+1,0
  6306.     &wait 10
  6307.     %monsdef(文字Ｑ) ={$0,0,0,0,0,0,0,0,0,0}
  6308.     %monsdef(文字Ｑ+1) ={$0,0,0,0,0,0,0,0,0,0}
  6309.     &monsprint 0,165,文字Ｑ,0
  6310.     &monsprint 128,165,文字Ｑ+1,0
  6311.     
  6312.     &wait 400
  6313.     
  6314.     &wait 10
  6315.     %monsdef(文字Ｑ) ={$B,0,0,0,0,0,0,0,0,0}
  6316.     %monsdef(文字Ｑ+1) ={$B,0,0,0,0,0,0,0,0,0}
  6317.     &monsprint 0,165,文字Ｑ,0
  6318.     &monsprint 128,165,文字Ｑ+1,0
  6319.     &wait 10
  6320.     %monsdef(文字Ｑ) ={$C,0,0,0,0,0,0,0,0,0}
  6321.     %monsdef(文字Ｑ+1) ={$C,0,0,0,0,0,0,0,0,0}
  6322.     &monsprint 0,165,文字Ｑ,0
  6323.     &monsprint 128,165,文字Ｑ+1,0
  6324.     &wait 10
  6325.     %monsdef(文字Ｑ) ={$D,0,0,0,0,0,0,0,0,0}
  6326.     %monsdef(文字Ｑ+1) ={$D,0,0,0,0,0,0,0,0,0}
  6327.     &monsprint 0,165,文字Ｑ,0
  6328.     &monsprint 128,165,文字Ｑ+1,0
  6329.     
  6330.     &monsprint 0,165,終Ｍ消し,0
  6331.     &monsprint 128,165,終Ｍ消し,0
  6332.     &wait 50
  6333. &rts
  6334. //▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
  6335.  
  6336.     [END2]                    //エンディング
  6337.  
  6338. //    ■■■■■　■　　　■　■■■■　　　■■■
  6339. //    ■　　　　　■■　　■　■　　　■　■　　　■
  6340. //    ■■■■■　■　■　■　■　　　■　　　■■
  6341. //    ■　　　　　■　　■■　■　　　■　　■
  6342. //    ■■■■■　■　　　■　■■■■　　■■■■■
  6343.  
  6344. //▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
  6345.     &initscreen
  6346.     &bgm 27
  6347.     &patternpal END\END2.PAL
  6348.     &map MAP\END2.MAP
  6349.     %partypoint={17,15,8}
  6350.  
  6351.     %mandef(1)={$a,1,$E0,2,0}        //ウキョ
  6352.     %mandef(2)={$c,4,$A0,2,0}        //ナカラ
  6353.     %mandef(3)={$c,4,$C0,2,0}        //ナカラ
  6354.     %mandef(4)={$c,4,$E0,2,0}        //ナカラ
  6355.     &on
  6356. //ありがとう表示(パレット がんがん変更)
  6357.     &monsprint 0,0,ありが,0
  6358.     &monsprint 128,0,とう！,0
  6359.  
  6360. //ウキョが歩きタイトル表示(音楽,効果音,フォント)
  6361.     &manmove 1,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,-2
  6362.     &wait 10
  6363.     &monsprint 32,72,お,1
  6364.     &wait 10
  6365.     &monsprint 64,72,ん,1
  6366.     &wait 10
  6367.     &monsprint 96,72,が,1
  6368.     &wait 10
  6369.     &monsprint 128,72,く,1
  6370.  
  6371. //ナカラが歩き人名表示
  6372.     &manmove 2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,-2
  6373.     &jsr ナぐる１
  6374.     &monsprint 72,120,水野さん,2
  6375.     &wait 10
  6376.     &monsprint 184,120,さん,2
  6377. //ナカラが歩き人名表示
  6378.     &manmove 3,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,-2
  6379.     &jsr ナぐる２
  6380.     &monsprint 72,160,奥村さん,2
  6381.     &wait 10
  6382.     &monsprint 184,160,さん,2
  6383. //ナカラが歩き人名表示
  6384.     &manmove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,-2
  6385.     &jsr ナぐる３
  6386.     &monsprint 72,200,Ｍａｒｋさん,2
  6387.     &wait 10
  6388.     &monsprint 192,200,さん,2
  6389.  
  6390.     //&wait
  6391.  
  6392. //ナカラが歩き人名消去
  6393.     &manmove 2,4,4,4,4
  6394.     &monsprint 72,120,名消し,2
  6395. //ナカラが歩き人名消去
  6396.     &manmove 3,6,6,6,6
  6397.     &monsprint 72,160,名消し,2
  6398. //ナカラが歩き人名消去
  6399.     &manmove 4,4,4,4,4
  6400.     &monsprint 72,200,名消し,2
  6401.     &monsprint 100,200,名消し,2
  6402.     
  6403. //ありがとう表示(パレット がんがん変更)
  6404.     %monsdef(ありが) ={$1,0,0,0,0,0,0,0,0,0}
  6405.     %monsdef(とう！) ={$1,0,0,0,0,0,0,0,0,0}
  6406.     &monsprint 0,0,ありが,0
  6407.     &monsprint 128,0,とう！,0
  6408.  
  6409. //ナカラが歩き人名表示
  6410.     &manmove 2,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,-2
  6411.     &jsr ナぐる１
  6412.     &monsprint 72,120,重長さん,2
  6413.     &wait 10
  6414.     &monsprint 184,120,さん,2
  6415. //ナカラが歩き人名表示
  6416.     &manmove 3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,-2
  6417.     &jsr ナぐる２
  6418.     &monsprint 48,160,あだつれ,2
  6419.     &monsprint 176,160,ゆうしさん,2
  6420.     &wait 10
  6421.     &monsprint 212,160,さん,2
  6422. //ナカラが歩き人名消去
  6423.     &manmove 2,6,6,6,6
  6424.     &monsprint 72,120,名消し,2
  6425. //ナカラが歩き人名消去
  6426.     &manmove 3,4,4,4,4
  6427.     &monsprint 48,160,名消し,2
  6428.     &monsprint 176,160,名消し,2
  6429.  
  6430. //うきょが歩き消去
  6431.     &manmove 1,-4
  6432.     &monsprint 128,72,字消し,1
  6433.     &wait 10
  6434.     &monsprint 96,72,字消し,1
  6435.     &wait 10
  6436.     &monsprint 64,72,字消し,1
  6437.     &wait 10
  6438.     &monsprint 32,72,字消し,1
  6439.  
  6440. //ありがとう表示(パレット がんがん変更)
  6441.     %monsdef(ありが) ={$2,0,0,0,0,0,0,0,0,0}
  6442.     %monsdef(とう！) ={$2,0,0,0,0,0,0,0,0,0}
  6443.     &monsprint 0,0,ありが,0
  6444.     &monsprint 128,0,とう！,0
  6445.  
  6446.  
  6447. //ウキョが歩きタイトル表示(効果音)
  6448.     %mandef(1)={$a,1,$E0,2,1}        //ウキョ
  6449.     &on
  6450.     &manmove 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,-2
  6451.     %mandef(1)={$a,1,$E0,2,0}        //ウキョ
  6452.     &on
  6453.     &wait 10
  6454.     &monsprint 56,72,こ,1
  6455.     &wait 10
  6456.     &monsprint 88,72,う,1
  6457.     &wait 10
  6458.     &monsprint 120,72,か,1
  6459.     &wait 10
  6460.     &monsprint 152,72,お,1
  6461.     &wait 10
  6462.     &monsprint 184,72,ん,1
  6463. //ナカラが歩き人名表示
  6464.     &manmove 2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,-2
  6465.     &jsr ナぐる１
  6466.     &monsprint 52,120,ゆもも,2
  6467.     &monsprint 168,120,Ｒさん,2
  6468.     &wait 10
  6469.     &monsprint 194,120,さん,2
  6470. //ナカラが歩き人名表示
  6471.     &manmove 3,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,-2
  6472.     &jsr ナぐる２
  6473.     &monsprint 72,160,宮崎さん,2
  6474.     &wait 10
  6475.     &monsprint 184,160,さん,2
  6476. //ナカラが歩き人名表示
  6477.     &manmove 4,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,-2
  6478.     &jsr ナぐる３
  6479.     &monsprint 72,200,Ｍａｒｋさん,2
  6480.     &wait 10
  6481.     &monsprint 192,200,さん,2
  6482.  
  6483. //ナカラが歩き人名消去
  6484.     &manmove 2,4,4,4,4
  6485.     &monsprint 52,120,名消し,2
  6486.     &monsprint 100,120,名消し,2
  6487. //ナカラが歩き人名消去
  6488.     &manmove 3,6,6,6,6
  6489.     &monsprint 72,160,名消し,2
  6490.     &monsprint 100,160,名消し,2
  6491. //ナカラが歩き人名消去
  6492.     &manmove 4,6,6,6,6
  6493.     &monsprint 72,200,名消し,2
  6494.     &monsprint 100,200,名消し,2
  6495.  
  6496. //ナカラが歩き人名表示
  6497.     &manmove 2,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,-2
  6498.     &jsr ナぐる１
  6499.     &monsprint 72,120,谷脇さん,2
  6500.     &wait 10
  6501.     &monsprint 184,120,さん,2
  6502.     &wait 100
  6503. //ナカラが歩き人名消去
  6504.     &manmove 2,6,6,6,6
  6505.     &monsprint 72,120,名消し,2
  6506.  
  6507. //うきょが歩き消去
  6508.     &manmove 1,-6
  6509.     &monsprint 184,72,字消し,1
  6510.     &wait 10
  6511.     &monsprint 152,72,字消し,1
  6512.     &wait 10
  6513.     &monsprint 120,72,字消し,1
  6514.     &wait 10
  6515.     &monsprint 88,72,字消し,1
  6516.     &wait 10
  6517.     &monsprint 56,72,字消し,1
  6518.  
  6519. //ありがとう表示(パレット がんがん変更)
  6520.     %monsdef(ありが) ={$3,0,0,0,0,0,0,0,0,0}
  6521.     %monsdef(とう！) ={$3,0,0,0,0,0,0,0,0,0}
  6522.     &monsprint 0,0,ありが,0
  6523.     &monsprint 128,0,とう！,0
  6524.  
  6525. //ウキョが歩きタイトル表示(フォント)
  6526.     %mandef(1)={$a,1,$E0,2,1}        //ウキョ
  6527.     &on
  6528.     &manmove 1,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,-2
  6529.     %mandef(1)={$a,1,$E0,2,0}        //ウキョ
  6530.     &on
  6531.     &wait 10
  6532.     &monsprint 32,72,ふ,1
  6533.     &wait 10
  6534.     &monsprint 64,72,ぉ,1
  6535.     &wait 10
  6536.     &monsprint 96,72,ん,1
  6537.     &wait 10
  6538.     &monsprint 128,72,と,1
  6539.  
  6540. //ナカラが歩き人名表示
  6541.     &manmove 3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,-2
  6542.     &jsr ナぐる２
  6543.     &monsprint 72,160,勝部さん,2
  6544.     &wait 10
  6545.     &monsprint 184,160,さん,2
  6546.     &wait 100
  6547. //ナカラが歩き人名消去
  6548.     &manmove 3,4,4,4,4
  6549.     &monsprint 72,160,名消し,2
  6550. //うきょが歩き消去
  6551.     &manmove 1,-4
  6552.     &monsprint 128,72,字消し,1
  6553.     &wait 10
  6554.     &monsprint 96,72,字消し,1
  6555.     &wait 10
  6556.     &monsprint 64,72,字消し,1
  6557.     &wait 10
  6558.     &monsprint 32,72,字消し,1
  6559.  
  6560. //ありがとう表示(パレット がんがん変更)
  6561.     %monsdef(ありが) ={$4,0,0,0,0,0,0,0,0,0}
  6562.     %monsdef(とう！) ={$4,0,0,0,0,0,0,0,0,0}
  6563.     &monsprint 0,0,ありが,0
  6564.     &monsprint 128,0,とう！,0
  6565. //ウキョが歩きタイトル表示(いろいろ)
  6566.     %mandef(1)={$a,1,$E0,2,1}        //ウキョ
  6567.     &on
  6568.     &manmove 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,-2
  6569.     %mandef(1)={$a,1,$E0,2,0}        //ウキョ
  6570.     &on
  6571.     &wait 10
  6572.     &monsprint 88,72,い,1
  6573.     &wait 10
  6574.     &monsprint 120,72,ろ,1
  6575.     &wait 10
  6576.     &monsprint 152,72,い,1
  6577.     &wait 10
  6578.     &monsprint 184,72,ろ,1
  6579. //ナカラが歩き人名表示
  6580.     &manmove 2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,-2
  6581.     &jsr ナぐる１
  6582.     &monsprint 24,120,前ＴＡ,1
  6583.     &wait 50
  6584.     &monsprint 40,136,ＴＮＢ,2
  6585.     &monsprint 168,136,製作所,2
  6586.     &if(ときめき==5){
  6587.         &wait 50
  6588.         &monsprint 118,120,前ＴＢ,1
  6589.     }
  6590. //ナカラが歩き人名表示
  6591.     &manmove 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,-2
  6592.     &jsr ナぐる２
  6593.     &monsprint 56,184,前ＮＡ,1
  6594.     &wait 50
  6595.     &monsprint 72,200,中村さん,2
  6596.     &wait 10
  6597.     &monsprint 184,200,さん,2
  6598.     &wait 100
  6599.     &if(ときめき==5){
  6600.         &monsprint 127,184,前ＮＢ,1
  6601.         &wait 50
  6602.     }
  6603. //ナカラが歩き人名消去
  6604.     &manmove 2,4,4,4,4
  6605.     &monsprint 24,120,前消し,1
  6606.     &monsprint 118,120,前消し,1
  6607.     &monsprint 40,136,名消し,2
  6608.     &monsprint 168,136,名消し,2
  6609. //ナカラが歩き人名消去
  6610.     &manmove 4,4,4,4,4
  6611.     &monsprint 56,184,前消し,1
  6612.     &monsprint 127,184,前消し,1
  6613.     &monsprint 72,200,名消し,2
  6614. //ありがとう表示(パレット がんがん変更)
  6615.     %monsdef(ありが) ={$5,0,0,0,0,0,0,0,0,0}
  6616.     %monsdef(とう！) ={$5,0,0,0,0,0,0,0,0,0}
  6617.     &monsprint 0,0,ありが,0
  6618.     &monsprint 128,0,とう！,0
  6619.  
  6620. //ナカラが歩き人名表示
  6621.     &manmove 3,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,-2
  6622.     &jsr ナぐる２
  6623.     &monsprint 56,128,前ＭＡ,1
  6624.     &wait 50
  6625.     &monsprint 72,154,みさん,2
  6626.     &wait 10
  6627.     &monsprint 180,154,さん,2
  6628.     &wait 100
  6629.     &if(ときめき==5){
  6630.         &monsprint 112,128,前ＭＢ,1
  6631.         &wait 50
  6632.     }
  6633. //ナカラが歩き人名消去
  6634.     &manmove 3,6,6,6,6
  6635.     &monsprint 56,128,前消し,1
  6636.     &monsprint 127,128,前消し,1
  6637.     &monsprint 72,154,名消し,2
  6638.  
  6639. //うきょが歩き消去
  6640.     &manmove 1,-6
  6641.     &monsprint 184,72,字消し,1
  6642.     &wait 10
  6643.     &monsprint 152,72,字消し,1
  6644.     &wait 10
  6645.     &monsprint 120,72,字消し,1
  6646.     &wait 10
  6647.     &monsprint 88,72,字消し,1
  6648. //ありがとう表示(パレット がんがん変更)
  6649.     %monsdef(ありが) ={$6,0,0,0,0,0,0,0,0,0}
  6650.     %monsdef(とう！) ={$6,0,0,0,0,0,0,0,0,0}
  6651.     &monsprint 0,0,ありが,0
  6652.     &monsprint 128,0,とう！,0
  6653. //最後にみんな出てきて"遊んでくれてありがとう"表示
  6654.     %mandef(1)={$a,1,$E0,2,1}        //ウキョ
  6655.     &on
  6656.     &manmove 1,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,-2
  6657.     %mandef(1)={$a,1,$E0,2,0}        //ウキョ
  6658.     &on
  6659.     &manmove 2,6,6,6,6,-2
  6660.     &jsr ナぐる１
  6661.     &manmove 3,4,4,4,4,-2
  6662.     &jsr ナぐる２
  6663.     &manmove 4,6,6,6,6,-2
  6664.     &jsr ナぐる３
  6665.     
  6666.     &monsprint 98,96,Ｙ１,1
  6667.     &wait 30
  6668.     &monsprint 56,136,Ｙ２,1
  6669.     &monsprint 128,136,Ｙ３,1
  6670.     &wait 30
  6671.     &monsprint 98,176,Ｙ４,1
  6672.     &wait 200
  6673.     
  6674. //ありがとう表示(パレット がんがん変更)
  6675.     %monsdef(ありが) ={$7,0,0,0,0,0,0,0,0,0}
  6676.     %monsdef(とう！) ={$7,0,0,0,0,0,0,0,0,0}
  6677.     &monsprint 0,0,ありが,0
  6678.     &monsprint 128,0,とう！,0
  6679.     &wait 50
  6680. //ありがとう表示(パレット がんがん変更)
  6681.     %monsdef(ありが) ={$2,0,0,0,0,0,0,0,0,0}
  6682.     %monsdef(とう！) ={$2,0,0,0,0,0,0,0,0,0}
  6683.     &monsprint 0,0,ありが,0
  6684.     &monsprint 128,0,とう！,0
  6685.     &wait 50
  6686. //ありがとう表示(パレット がんがん変更)
  6687.     %monsdef(ありが) ={$0,0,0,0,0,0,0,0,0,0}
  6688.     %monsdef(とう！) ={$0,0,0,0,0,0,0,0,0,0}
  6689.     &monsprint 0,0,ありが,0
  6690.     &monsprint 128,0,とう！,0
  6691.     &wait 150
  6692.  
  6693.     &contrast 0
  6694.     &bgm -1
  6695.     &wait 100
  6696.     &manmove 1,6,6,6,6
  6697.     &manmove 2,4,4,4,4
  6698.     &manmove 3,6,6,6,6
  6699.     &manmove 4,4,4,4,4
  6700.     &monsprint 0,0,消し,1
  6701.     &monsprint 128,0,消し,1
  6702.     &monsprint 0,128,消し,1
  6703.     &monsprint 128,128,消し,1
  6704.  
  6705. //幻獣小タイトル＋署名
  6706.     &monsprint 72,24,ロゴ,2
  6707.     &monsprint 40,120,年月,1
  6708.     &monsprint 64,144,自分１,1
  6709.     &monsprint 136,144,自分２,1
  6710.     &bgm 37
  6711.     &contrast 15
  6712.     &wait 800
  6713.     &pause
  6714.     &contrast 0
  6715.     &wait 250
  6716.     &end
  6717. &label ナぐる１ 
  6718.     %mandef(2)={$c,4,$A0,2,1}        //ナカラ
  6719.     &on
  6720.     &manmove 2,-4,-8,-6,-2
  6721.     %mandef(2)={$c,4,$A0,2,0}        //ナカラ
  6722.     &on
  6723. &rts
  6724. &label ナぐる２ 
  6725.     %mandef(3)={$c,4,$C0,2,1}        //ナカラ
  6726.     &on
  6727.     &manmove 3,-4,-8,-6,-2
  6728.     %mandef(3)={$c,4,$C0,2,0}        //ナカラ
  6729.     &on
  6730. &rts
  6731. &label ナぐる３ 
  6732.     %mandef(4)={$c,4,$E0,2,1}        //ナカラ
  6733.     &on
  6734.     &manmove 4,-4,-8,-6,-2
  6735.     %mandef(4)={$c,4,$E0,2,0}        //ナカラ
  6736.     &on
  6737. &rts
  6738. //▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
  6739.  
  6740.     [SUB]                    //サブルーチン
  6741.  
  6742. //    ■■■■■　■　　　■　■■■■
  6743. //    ■　　　　　■　　　■　■　　　■
  6744. //    ■■■■■　■　　　■　■■■■
  6745. //    　　　　■　■　　　■　■　　　■
  6746. //    ■■■■■　　■■■　　■■■■
  6747.  
  6748. //▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼▼
  6749.  
  6750.     //▼▼▼▼▼ＣＧ画面クリア処理▼▼▼▼▼
  6751.  
  6752. &label 画面クリア
  6753.         &monsprint 0,0,消し,2
  6754.         &monsprint 0,128,消し,2
  6755.         &monsprint 128,0,消し,2
  6756.         &monsprint 128,128,消し,2
  6757. &rts    
  6758.  
  6759.     //▼▼▼▼▼パターン変更処理▼▼▼▼▼
  6760.  
  6761. &label 巨大化
  6762.     &if(主人公==0){
  6763.         %partydef(0)  = {$8,2,$20,-1,-1,-1,-1,-1,-1,-1}
  6764.     }&else{
  6765.         %partydef(0)  = {$9,2,$40,-1,-1,-1,-1,-1,-1,-1}
  6766.     }
  6767.     &on
  6768. &rts
  6769.  
  6770.     //▼▼▼▼▼秘石の数を調べる▼▼▼▼▼
  6771.  
  6772. &label 石チェック
  6773.     &switch(秘石){
  6774.         &case(2):
  6775.             &jsr 石２個目
  6776.             &break
  6777.         &case(3):
  6778.             &jsr 石３個目
  6779.             &break
  6780.         &case(4):
  6781.             &jsr 石４個目
  6782.             &break
  6783.         &case(5):
  6784.             &jsr 石５個目
  6785.             &break
  6786.         &default:
  6787.     
  6788.     }
  6789. &rts
  6790. &label 石２個目
  6791.     &if(主人公==0){
  6792.         &monsprint 24,80,少年
  6793.         !o(1)j(2)|(0);j(0)ふー、これで２個目かあpc
  6794.     }&else{
  6795.         &monsprint 24,80,少女
  6796.         !o(1)j(2)|(0);j(0)とりあえず、２個目ゲットだわpc
  6797.     }
  6798. &rts
  6799. &label 石３個目
  6800.     &if(主人公==0){
  6801.         &monsprint 24,80,少年
  6802.         !o(1)j(2)|(0);j(0)よっしゃー！３個目ーpc
  6803.     }&else{
  6804.         &monsprint 24,80,少女
  6805.         !o(1)j(2)|(0);j(0)これで、３個ね;順調順調pc
  6806.     }
  6807. &rts
  6808. &label 石４個目
  6809.     &if(主人公==0){
  6810.         &monsprint 24,80,少年
  6811.         !o(1)j(2)|(0);j(0)よし、４個目か;あと１つだpc
  6812.     }&else{
  6813.         &monsprint 24,80,少女
  6814.         !o(1)j(2)|(0);j(0)４個目ね;残りはあと１つだわpc
  6815.     }
  6816. &rts
  6817. &label 石５個目
  6818.     &if(主人公==0){
  6819.         &monsprint 24,80,少年
  6820.         !o(1)j(2)|(0);j(0)っしゃーっ！これで全部だ;
  6821.         !あとは洞窟で魔竜と御対面ってわけだなpc
  6822.     }&else{
  6823.         &monsprint 24,80,少女
  6824.         !o(1)j(2)|(0);j(0)やったー！全部集まったわ;これで最初の洞窟の道が開けるのねp;
  6825.         !でも、まだ魔竜がいるのかあ;気が抜けないわねpc
  6826.     }
  6827. &rts
  6828.     //▼▼▼▼▼宝箱処理▼▼▼▼▼
  6829.  
  6830. //アイテムの場合
  6831. &label 宝箱処理１
  6832.     宝フラグ=0            //宝フラグの初期化
  6833.     %mandef(%manno)={$3,0,$00,2,0}    //動きだけ0にする
  6834.     &on
  6835.     &manmove %manno,-4        //宝箱が開いたパターンを表示する
  6836.     !o(1)j(2)i(宝)j(0)を見つけた！p
  6837.     &if(%rasthaveitem<0){        //アイテムがこれ以上持てるか判定
  6838.         !;これ以上持てませんpc
  6839.                     //宝箱を閉じる
  6840.         %mandef(%manno)={$3,0,$00,2,-1}    //固定する
  6841.     }&else{
  6842.         &partyitemin 宝        //アイテム入手
  6843.         宝フラグ=1        //アイテムを入手したので宝フラグを1にする
  6844.         全宝=全宝-1        //残り宝カウント
  6845.         !;j(2)i(宝)j(0)を手に入れたpc
  6846.                     //宝箱は開けたまま
  6847.         %mandef(%manno)={$3,0,$00,4,-1}    //固定する
  6848.     }
  6849.         &on
  6850. &rts
  6851.  
  6852. //お金の場合
  6853. &label 宝箱処理２
  6854.     宝フラグ=0
  6855.     %mandef(%manno)={$3,0,$00,2,0}
  6856.     &on
  6857.     &manmove %manno,-4
  6858.     !o(1)j(2)f(金)j(0)Ｇを見つけた！p
  6859.     &if((%gold+金)>32767){        //お金をこれ以上持てるか判定
  6860.         !;これ以上持てませんpc
  6861.         %mandef(%manno)={$3,0,$00,2,-1}
  6862.     }&else{
  6863.         %gold=%gold+金        //お金を入手
  6864.         宝フラグ=1
  6865.         全宝=全宝-1        //残り宝カウント
  6866.         !;j(2)f(金)j(0)Ｇを手に入れたpc
  6867.         %mandef(%manno)={$3,0,$00,4,-1}
  6868.     }
  6869.     &on
  6870. &rts
  6871. //からっぽの場合
  6872. &label 宝箱処理３
  6873.     %mandef(%manno)={$3,0,$00,2,0}
  6874.     &on
  6875.     &manmove %manno,-4
  6876.     !o(1)からっぽですpc
  6877.     %mandef(%manno)={$3,0,$00,4,-1}
  6878.     &on
  6879. &rts
  6880.  
  6881.     //▼▼▼▼▼エサ処理▼▼▼▼▼
  6882.  
  6883. &label 食事
  6884.     &if(%gold<0){%gold=32767}
  6885.     !o(1)モンスターの肉があります:
  6886.     !どちらの幻獣に食べさせますか？;
  6887.     !１：j(2)|(1)j(0);２：j(2)|(2)j(0)p
  6888.     %selectlist={１,２,キャンセル}
  6889.     選択=%select
  6890.     &switch(選択){
  6891.         &case(0):
  6892.             &jsr 食べ１
  6893.             &break
  6894.         &case(1):
  6895.             &jsr 食べ２
  6896.             &break
  6897.         &default:
  6898.     }
  6899. &rts
  6900. &label 食べ１
  6901.     &se 24
  6902.     &wait 30
  6903.     &se 24
  6904.     &if(成長段階1==3){
  6905.         !o(1)これ以上の成長は見込めませんpc
  6906.     }&else{
  6907.         幻魔1=幻魔1+魔
  6908.             &if(幻魔1<0){幻魔1=0}
  6909.         幻力1=幻力1+力
  6910.             &if(幻力1<0){幻力1=0}
  6911.         獣=0
  6912.         幻魔=幻魔1
  6913.         幻力=幻力1
  6914.         幻獣=幻獣1
  6915.         成長段階=成長段階1
  6916.         &if(幻魔>=幻力){
  6917.             &jsr 成長魔
  6918.         }&else{
  6919.             &jsr 成長力
  6920.         }
  6921.         幻魔1=幻魔
  6922.         幻力1=幻力
  6923.         幻獣1=幻獣
  6924.         成長段階1=成長段階
  6925.         
  6926.         //&rts
  6927.         //&if(幻初期化==1){
  6928.  
  6929.         &if(成長段階==3){&rts}
  6930.  
  6931.         !o(1)j(2)|(1)j(0)の属性増減値;魔：j(2)f(魔);j(0)力：j(2)f(力)j(0)p
  6932.         &switch(成長段階){
  6933.             &case(0):
  6934.                 !o(1)次の成長に必要な値;魔なら：j(2)f(11-幻魔);j(0)力なら：j(2)f(16-幻力)j(0)pc
  6935.                 &break
  6936.             &case(1):
  6937.                 !o(1)次の成長に必要な値;魔なら：j(2)f(21-幻魔);j(0)力なら：j(2)f(26-幻力)j(0)pc
  6938.                 &break
  6939.             &case(2):
  6940.                 !o(1)次の成長に必要な値;魔なら：j(2)f(36-幻魔);j(0)力なら：j(2)f(41-幻力)j(0)pc
  6941.                 &break
  6942.         }
  6943.         //}
  6944.     }
  6945. &rts
  6946. &label 食べ２
  6947.     &se 24
  6948.     &wait 30
  6949.     &se 24
  6950.     &if(成長段階2==3){
  6951.         !o(1)これ以上の成長は見込めませんpc
  6952.     }&else{
  6953.         幻魔2=幻魔2+魔
  6954.         &if(幻魔2<0){幻魔2=0}
  6955.         幻力2=幻力2+力
  6956.         &if(幻力2<0){幻力2=0}
  6957.         獣=1
  6958.         幻魔=幻魔2
  6959.         幻力=幻力2
  6960.         幻獣=幻獣2
  6961.         成長段階=成長段階2
  6962.         &if(幻魔>=幻力){
  6963.             &jsr 成長魔
  6964.         }&else{
  6965.             &jsr 成長力
  6966.         }
  6967.         幻魔2=幻魔
  6968.         幻力2=幻力
  6969.         幻獣2=幻獣
  6970.         成長段階2=成長段階
  6971.         //&rts
  6972.         //&if(幻初期化==1){
  6973.         
  6974.         &if(成長段階==3){&rts}
  6975.         
  6976.         !o(1)j(2)|(1)j(0)の属性増減値;魔：j(2)f(魔);j(0)力：j(2)f(力)j(0)p
  6977.         &switch(成長段階){
  6978.             &case(0):
  6979.                 !o(1)次の成長に必要な値;魔なら：j(2)f(10-幻魔);j(0)力なら：j(2)f(15-幻力)j(0)pc
  6980.                 &break
  6981.             &case(1):
  6982.                 !o(1)次の成長に必要な値;魔なら：j(2)f(20-幻魔);j(0)力なら：j(2)f(25-幻力)j(0)pc
  6983.                 &break
  6984.             &case(2):
  6985.                 !o(1)次の成長に必要な値;魔なら：j(2)f(35-幻魔);j(0)力なら：j(2)f(40-幻力)j(0)pc
  6986.                 &break
  6987.         
  6988.         }
  6989.         //}
  6990.     }
  6991. &rts
  6992.     //▼▼▼▼▼成長処理▼▼▼▼▼
  6993. &label 成長力
  6994.     &switch(成長段階){
  6995.         &case(0):
  6996.             &if(幻力>=15){
  6997.                 幻獣=1
  6998.                 &jsr 変体
  6999.             }
  7000.             &break
  7001.         &case(1):
  7002.             &if(幻力>=25){
  7003.                 幻獣=幻獣*2+1
  7004.                 &jsr 変体
  7005.             }
  7006.             &break
  7007.         &case(2):
  7008.             &if(幻力>=40){
  7009.                 幻獣=幻獣*2+1
  7010.                 &jsr 変体
  7011.             }
  7012.     }
  7013. &rts
  7014. &label 成長魔
  7015.     &switch(成長段階){
  7016.         &case(0):
  7017.             &if(幻魔>=10){
  7018.                 幻獣=2
  7019.                 &jsr 変体
  7020.             }
  7021.             &break
  7022.         &case(1):
  7023.             &if(幻魔>=20){
  7024.                 幻獣=幻獣*2+2
  7025.                 &jsr 変体
  7026.             }
  7027.             &break
  7028.         &case(2):
  7029.             &if(幻魔>=35){
  7030.                 幻獣=幻獣*2+2
  7031.                 &jsr 変体
  7032.             }
  7033.     }
  7034. &rts
  7035. &label 変体
  7036.     幻魔=0
  7037.     幻力=0
  7038.     成長段階=成長段階+1
  7039.     音楽=%nowbgm
  7040.     &bgm 25
  7041.     &wait 750
  7042.     &bgm 音楽
  7043.     !o(1)j(2)|(獣+1)j(0)が成長した！pc
  7044.     &switch(幻獣){
  7045.     &case(1):
  7046.         %racenamedef(獣+1) = 幻獣1
  7047.         %racedef(獣+1) = {        //        レベルアップの時の
  7048.              20, 5,12,    //HP  初期値,最低アップ値,最高アップ値,
  7049.              2, 1,3,    //MP  初期値,最低アップ値,最高アップ値,
  7050.              6, 4,8,    //力  初期値,最低アップ値,最高アップ値,
  7051.              5, 4,8,    //素早さ  初期値,最低アップ値,最高アップ値,
  7052.              3, 2,4,    //器用さ  初期値,最低アップ値,最高アップ値,
  7053.              0,        //属性
  7054.              1        //レベルアップまでの必要経験値
  7055.         }
  7056.         %racemagicdef(獣+1) = {ひっかき,かみつき}
  7057.         %racemagiclvldef(獣+1) = {2,5}
  7058.         %partydef(獣+1)  = {$B,2,$C0,獣+1,-1,-1,-1,-1,-1,-1}
  7059.         本01=1
  7060.         &on
  7061.         &rts
  7062.         &break
  7063.     &case(2):
  7064.         %racenamedef(獣+1) = 幻獣2
  7065.         %racedef(獣+1) = {        //        レベルアップの時の
  7066.              15, 4,6,    //HP  初期値,最低アップ値,最高アップ値,
  7067.              6, 3,7,    //MP  初期値,最低アップ値,最高アップ値,
  7068.              4, 1,5,    //力  初期値,最低アップ値,最高アップ値,
  7069.              3, 3,7,    //素早さ  初期値,最低アップ値,最高アップ値,
  7070.              3, 2,9,    //器用さ  初期値,最低アップ値,最高アップ値,
  7071.              0,        //属性
  7072.              1        //レベルアップまでの必要経験値
  7073.         }
  7074.         %racemagicdef(獣+1) = {ケア１,アイス}
  7075.         %racemagiclvldef(獣+1) = {1,4}
  7076.         %partydef(獣+1)  = {$D,2,$E0,獣+1,-1,-1,-1,-1,-1,-1}
  7077.         本02=1
  7078.         &on
  7079.         &rts
  7080.         &break
  7081.     &case(3):
  7082.         %racenamedef(獣+1) = 幻獣3
  7083.         %racedef(獣+1) = {        //        レベルアップの時の
  7084.              27,8,15,    //HP  初期値,最低アップ値,最高アップ値,
  7085.              5, 1,5,    //MP  初期値,最低アップ値,最高アップ値,
  7086.              8, 6,10,    //力  初期値,最低アップ値,最高アップ値,
  7087.              8, 8,12,    //素早さ  初期値,最低アップ値,最高アップ値,
  7088.              5, 4,8,    //器用さ  初期値,最低アップ値,最高アップ値,
  7089.              0,        //属性
  7090.              1        //レベルアップまでの必要経験値
  7091.         }
  7092.         %racemagicdef(獣+1) = {ひっかき,かみつき,ぶんなぐり,トゲしっぽ}
  7093.         %racemagiclvldef(獣+1) = {2,5,8,10}
  7094.         %partydef(獣+1)  = {$D,3,$00,獣+1,1,-1,-1,-1,-1,-1}
  7095.         本03=1
  7096.         &on
  7097.         &rts
  7098.         &break
  7099.     &case(4):
  7100.         %racenamedef(獣+1) = 幻獣4
  7101.         %racedef(獣+1) = {        //        レベルアップの時の
  7102.              25, 6,12,    //HP  初期値,最低アップ値,最高アップ値,
  7103.              6, 2,6,    //MP  初期値,最低アップ値,最高アップ値,
  7104.              7, 4,8,    //力  初期値,最低アップ値,最高アップ値,
  7105.              6, 3,9,    //素早さ  初期値,最低アップ値,最高アップ値,
  7106.              4, 4,8,    //器用さ  初期値,最低アップ値,最高アップ値,
  7107.              0,        //属性
  7108.              1        //レベルアップまでの必要経験値
  7109.         }
  7110.         %racemagicdef(獣+1) = {ひっかき,かみつき,ケア１,アイス,怪電波}
  7111.         %racemagiclvldef(獣+1) = {2,5,8,10,13}
  7112.         %partydef(獣+1)  = {$8,3,$20,獣+1,-1,-1,-1,-1,-1,-1}
  7113.         本04=1
  7114.         &on
  7115.         &rts
  7116.         &break
  7117.     &case(5):
  7118.         %racenamedef(獣+1) = 幻獣5
  7119.         %racedef(獣+1) = {        //        レベルアップの時の
  7120.              20, 5,10,    //HP  初期値,最低アップ値,最高アップ値,
  7121.              7, 4,8,    //MP  初期値,最低アップ値,最高アップ値,
  7122.              6, 3,7,    //力  初期値,最低アップ値,最高アップ値,
  7123.              5, 3,9,    //素早さ  初期値,最低アップ値,最高アップ値,
  7124.              4, 4,9,    //器用さ  初期値,最低アップ値,最高アップ値,
  7125.              0,        //属性
  7126.              1        //レベルアップまでの必要経験値
  7127.         }
  7128.         %racemagicdef(獣+1) = {ケア１,アイス,ファイア,ケア２,連続バサミ}
  7129.         %racemagiclvldef(獣+1) = {1,4,8,10,12}
  7130.         %partydef(獣+1)  = {$B,3,$40,獣+1,-1,-1,-1,-1,-1,-1}
  7131.         本05=1
  7132.         &on
  7133.         &rts
  7134.         &break
  7135.     &case(6):
  7136.         %racenamedef(獣+1) = 幻獣6
  7137.         %racedef(獣+1) = {        //        レベルアップの時の
  7138.              18, 4,8,    //HP  初期値,最低アップ値,最高アップ値,
  7139.              15, 6,12,    //MP  初期値,最低アップ値,最高アップ値,
  7140.              5, 2,6,    //力  初期値,最低アップ値,最高アップ値,
  7141.              4, 3,9,    //素早さ  初期値,最低アップ値,最高アップ値,
  7142.              4, 3,8,    //器用さ  初期値,最低アップ値,最高アップ値,
  7143.              0,        //属性
  7144.              1        //レベルアップまでの必要経験値
  7145.         }
  7146.         %racemagicdef(獣+1) = {ケア１,アイス,ケア２,フリーズ,フレイム,消化液}
  7147.         %racemagiclvldef(獣+1) = {1,4,5,8,10,13}
  7148.         %partydef(獣+1)  = {$D,3,$60,獣+1,-1,-1,-1,-1,-1,-1}
  7149.         本06=1
  7150.         &on
  7151.         &rts
  7152.         &break
  7153.     &case(7):
  7154.         %racenamedef(獣+1) = 幻獣7
  7155.         %racedef(獣+1) = {        //        レベルアップの時の
  7156.              35, 15,25,    //HP  初期値,最低アップ値,最高アップ値,
  7157.              8, 2,6,    //MP  初期値,最低アップ値,最高アップ値,
  7158.              12, 10,18,    //力  初期値,最低アップ値,最高アップ値,
  7159.              12, 10,15,    //素早さ  初期値,最低アップ値,最高アップ値,
  7160.              10, 8,13,    //器用さ  初期値,最低アップ値,最高アップ値,
  7161.              0,        //属性
  7162.              1        //レベルアップまでの必要経験値
  7163.         }
  7164.         %racemagicdef(獣+1) = {ひっかき,かみつき,ぶんなぐり,ふみつぶし,鬼なぐり}
  7165.         %racemagiclvldef(獣+1) = {2,5,8,10,12}
  7166.         %partydef(獣+1)  = {$D,3,$80,獣+1,-1,-1,-1,-1,-1,-1}
  7167.         本07=1
  7168.         &on
  7169.         &rts
  7170.         &break
  7171.     &case(8):
  7172.         %racenamedef(獣+1) = 幻獣8
  7173.         %racedef(獣+1) = {        //        レベルアップの時の
  7174.              32, 9,19,    //HP  初期値,最低アップ値,最高アップ値,
  7175.              10, 4,8,    //MP  初期値,最低アップ値,最高アップ値,
  7176.              10, 8,13,    //力  初期値,最低アップ値,最高アップ値,
  7177.              10, 7,9,    //素早さ  初期値,最低アップ値,最高アップ値,
  7178.              8, 6,8,    //器用さ  初期値,最低アップ値,最高アップ値,
  7179.              0,        //属性
  7180.              1        //レベルアップまでの必要経験値
  7181.         }
  7182.         %racemagicdef(獣+1) = {ひっかき,かみつき,ケア１,突き刺し,ぶんなぐり,地獄刺し}
  7183.         %racemagiclvldef(獣+1) = {2,5,8,9,10,13}
  7184.         %partydef(獣+1)  = {$F,3,$A0,獣+1,-1,-1,-1,-1,-1,-1}
  7185.         本08=1
  7186.         &on
  7187.         &rts
  7188.         &break
  7189.     &case(9):
  7190.         %racenamedef(獣+1) = 幻獣9
  7191.         %racedef(獣+1) = {        //        レベルアップの時の
  7192.              28, 8,12,    //HP  初期値,最低アップ値,最高アップ値,
  7193.              11, 6,10,    //MP  初期値,最低アップ値,最高アップ値,
  7194.              8, 6,10,    //力  初期値,最低アップ値,最高アップ値,
  7195.              7, 3,8,    //素早さ  初期値,最低アップ値,最高アップ値,
  7196.              8, 7,10,    //器用さ  初期値,最低アップ値,最高アップ値,
  7197.              0,        //属性
  7198.              1        //レベルアップまでの必要経験値
  7199.         }
  7200.         %racemagicdef(獣+1) = {ひっかき,かみつき,ケア１,アイス,死の視線,死の接吻,カオス}
  7201.         %racemagiclvldef(獣+1) = {2,5,8,10,12,14,16,19}
  7202.         %partydef(獣+1)  = {$9,3,$C0,獣+1,-1,-1,-1,-1,-1,-1}
  7203.         本09=1
  7204.         &on
  7205.         &rts
  7206.         &break
  7207.     &case(10):
  7208.         %racenamedef(獣+1) = 幻獣10
  7209.         %racedef(獣+1) = {        //        レベルアップの時の
  7210.              25, 7,15,    //HP  初期値,最低アップ値,最高アップ値,
  7211.              12, 8,12,    //MP  初期値,最低アップ値,最高アップ値,
  7212.              8, 7,10,    //力  初期値,最低アップ値,最高アップ値,
  7213.              6, 6,12,    //素早さ  初期値,最低アップ値,最高アップ値,
  7214.              5, 5,10,    //器用さ  初期値,最低アップ値,最高アップ値,
  7215.              0,        //属性
  7216.              1        //レベルアップまでの必要経験値
  7217.         }
  7218.         %racemagicdef(獣+1) = {ひっかき,かみつき,ケア１,アイス,ケア２,フリーズ,ネコキック}
  7219.         %racemagiclvldef(獣+1) = {2,5,8,10,12,14,16}
  7220.         %partydef(獣+1)  = {$E,3,$E0,獣+1,-1,-1,-1,-1,-1,-1}
  7221.         本10=1
  7222.         &on
  7223.         &rts
  7224.         &break
  7225.     &case(11):
  7226.         %racenamedef(獣+1) = 幻獣11
  7227.         %racedef(獣+1) = {        //        レベルアップの時の
  7228.              22, 6,13,    //HP  初期値,最低アップ値,最高アップ値,
  7229.              15, 9,12,    //MP  初期値,最低アップ値,最高アップ値,
  7230.              8, 6,9,    //力  初期値,最低アップ値,最高アップ値,
  7231.              7, 5,15,    //素早さ  初期値,最低アップ値,最高アップ値,
  7232.              7, 7,13,    //器用さ  初期値,最低アップ値,最高アップ値,
  7233.              0,        //属性
  7234.              1        //レベルアップまでの必要経験値
  7235.         }
  7236.         %racemagicdef(獣+1) = {ケア１,アイス,ファイア,ケア２,フレイム,ぶったギリ}
  7237.         %racemagiclvldef(獣+1) = {1,4,8,10,12,14}
  7238.         %partydef(獣+1)  = {$F,4,$00,獣+1,-1,-1,-1,-1,-1,-1}
  7239.         本11=1
  7240.         &on
  7241.         &rts
  7242.         &break
  7243.     &case(12):
  7244.         %racenamedef(獣+1) = 幻獣12
  7245.         %racedef(獣+1) = {        //        レベルアップの時の
  7246.              25, 6,12,    //HP  初期値,最低アップ値,最高アップ値,
  7247.              20, 10,14,    //MP  初期値,最低アップ値,最高アップ値,
  7248.              7, 5,9,    //力  初期値,最低アップ値,最高アップ値,
  7249.              8, 3,9,    //素早さ  初期値,最低アップ値,最高アップ値,
  7250.              6, 7,10,    //器用さ  初期値,最低アップ値,最高アップ値,
  7251.              0,        //属性
  7252.              1        //レベルアップまでの必要経験値
  7253.         }
  7254.         %racemagicdef(獣+1) = {ケア１,アイス,ファイア,ケア２,フリーズ,フレイム,巻きつき}
  7255.         %racemagiclvldef(獣+1) = {1,2,5,8,10,12,16}
  7256.         %partydef(獣+1)  = {$8,4,$20,獣+1,-1,-1,-1,-1,-1,-1}
  7257.         本12=1
  7258.         &on
  7259.         &rts
  7260.         &break
  7261.     &case(13):
  7262.         %racenamedef(獣+1) = 幻獣13
  7263.         %racedef(獣+1) = {        //        レベルアップの時の
  7264.              22, 5,10,    //HP  初期値,最低アップ値,最高アップ値,
  7265.              20,12,16,    //MP  初期値,最低アップ値,最高アップ値,
  7266.              7, 6,10,    //力  初期値,最低アップ値,最高アップ値,
  7267.              7, 4,10,    //素早さ  初期値,最低アップ値,最高アップ値,
  7268.              6, 5,9,    //器用さ  初期値,最低アップ値,最高アップ値,
  7269.              0,        //属性
  7270.              1        //レベルアップまでの必要経験値
  7271.         }
  7272.         %racemagicdef(獣+1) = {ケア１,アイス,ケア２,フリーズ,フレイム,クエイク,ブリザード,怪光線}
  7273.         %racemagiclvldef(獣+1) = {1,4,5,6,8,10,12,16}
  7274.         %partydef(獣+1)  = {$A,4,$40,獣+1,-1,-1,-1,-1,-1,-1}
  7275.         本13=1
  7276.         &on
  7277.         &rts
  7278.         &break
  7279.     &case(14):
  7280.         %racenamedef(獣+1) = 幻獣14
  7281.         %racedef(獣+1) = {        //        レベルアップの時の
  7282.              20, 5,9,    //HP  初期値,最低アップ値,最高アップ値,
  7283.              25, 16,24,    //MP  初期値,最低アップ値,最高アップ値,
  7284.              6, 4,8,    //力  初期値,最低アップ値,最高アップ値,
  7285.              10, 7,12,    //素早さ  初期値,最低アップ値,最高アップ値,
  7286.              5, 4,8,    //器用さ  初期値,最低アップ値,最高アップ値,
  7287.              0,        //属性
  7288.              1        //レベルアップまでの必要経験値
  7289.         }
  7290.         %racemagicdef(獣+1) = {ケア１,アイス,ケア２,フリーズ,フレイム,ブリザード,ケア３,ブレイズ,メテオ,デス}
  7291.         %racemagiclvldef(獣+1) = {1,3,5,7,7,9,11,12,14,16}
  7292.         %partydef(獣+1)  = {$A,4,$60,獣+1,-1,-1,-1,-1,-1,-1}
  7293.         本14=1
  7294.         &on
  7295.         &rts
  7296.  
  7297.     }
  7298.     &on
  7299. &rts
  7300.     //▼▼▼▼▼コロシアム処理１▼▼▼▼▼
  7301.  
  7302. &label 出場
  7303.     //&if(%gold>=出場料){
  7304.     //    !;はい、確かにj(2)f(出場料)j(0)Ｇですねp
  7305.     //    %gold=%gold-出場料
  7306.     //    !g
  7307.     //}&else{
  7308.     //    !;申し訳ございませんが、お金が無いと出場できませんのでpc
  7309.     //    &rts
  7310.     //}
  7311.     !o(1)j(2)受付;j(0)どちらのモンスターを出場させますか？p
  7312.     !o(1)１：j(2)|(1)j(0):２：j(2)|(2)j(0)p
  7313.     %selectlist={１,２}
  7314.     選択=%select
  7315.     &switch(選択){
  7316.         &case(0):
  7317.             !o(1)j(2)受付;|(1)j(0)ですね;
  7318.             !それでは、がんばって下さいpc
  7319.             &break
  7320.         &case(1):
  7321.             !o(1)j(2)受付;|(2)j(0)ですね;
  7322.             !それでは、がんばって下さいpc
  7323.             &break
  7324.         &default:
  7325.             !o(1)j(2)受付;j(0)おやめになりますか
  7326.             //%gold=%gold+出場料
  7327.             //!gp
  7328.             &rts
  7329.     }
  7330.     &partymove 4,4,4,8,8,8,8,4,4,4,4,4,4
  7331.     &manmove 14,2,2,2,2,-8
  7332.     &partymove 4,4,4,4,4,4
  7333.     &partyset 選択+1
  7334.     %mandef(7)={$c,1,$C0,2,0}        //対戦モンスター
  7335.     %manpoint(7)={9,14}
  7336.     %manpoint(5)={100,100}            //うろうろモンスター
  7337.     %manpoint(6)={100,100}            //　飛ばし
  7338.     &move 29,14,2
  7339.     
  7340. //右柵を開ける
  7341.     &manmove 2,-2
  7342.     &pcm 3
  7343.     &manmove 2,-4
  7344.     &pcm 3
  7345.     &manmove 2,-6
  7346.     &pcm 3
  7347.     &manmove 2,-8
  7348.     &pcm 3
  7349.     %manpoint(2)={100,100}
  7350.     %mandef(2)={$3,0,$00,8,0}
  7351.     &on
  7352. //左柵を開ける
  7353.     &manmove 1,-2
  7354.     &pcm 3
  7355.     &manmove 1,-4
  7356.     &pcm 3
  7357.     &manmove 1,-6
  7358.     &pcm 3
  7359.     &manmove 1,-8
  7360.     &pcm 3
  7361.     %manpoint(1)={100,100}
  7362.     %mandef(1)={$3,0,$00,8,0}
  7363.     &on
  7364. //中央に移動
  7365.     &partymove 2,2,2,2,2,2,2,4,4,4,4,4,4,4,4
  7366.     &manmove 7,2,2,2,2,2,2,2,6,6,6,6,6,6,6,6
  7367. //右柵を閉じる
  7368.     %manpoint(2)={29,17}
  7369.     &on
  7370.     &pcm 3
  7371.     &manmove 2,-8
  7372.     &pcm 3
  7373.     &manmove 2,-6
  7374.     &pcm 3
  7375.     &manmove 2,-4
  7376.     &pcm 3
  7377.     &manmove 2,-2
  7378. //左柵を閉じる
  7379.     %manpoint(1)={9,17}
  7380.     &on
  7381.     &pcm 3
  7382.     &manmove 1,-8
  7383.     &pcm 3
  7384.     &manmove 1,-6
  7385.     &pcm 3
  7386.     &manmove 1,-4
  7387.     &pcm 3
  7388.     &manmove 1,-2
  7389.     
  7390.     &ldef 対戦相手１
  7391.     &ldef 対戦相手２
  7392.     &ldef 対戦相手３
  7393.     &ldef 対戦相手４
  7394.     &ldef 対戦相手５
  7395.     &ldef 対戦相手６
  7396.     &ldef 賞品
  7397. //対戦モンスター設定
  7398.     &switch(クラス){
  7399.         &case(0):
  7400.             対戦相手１=バグベア
  7401.             対戦相手２=モスマン
  7402.             対戦相手３=シルフ
  7403.             対戦相手４=ゴブリン
  7404.             対戦相手５=デュラハン
  7405.             対戦相手６=レッドキャップ
  7406.             &switch(%rnd(3)){
  7407.                 &case(0):
  7408.                     賞品=獅子の牙
  7409.                     &break
  7410.                 &case(1):
  7411.                     賞品=青の魔石
  7412.                     &break
  7413.                 &case(2):
  7414.                     賞品=氷結の石
  7415.             }
  7416.             &break
  7417.         &case(1):
  7418.             対戦相手１=リザードマン
  7419.             対戦相手２=ラミア
  7420.             対戦相手３=コカトリス
  7421.             対戦相手４=バルログ
  7422.             対戦相手５=ゴーレム
  7423.             対戦相手６=サキュバス
  7424.             &switch(%rnd(3)){
  7425.                 &case(0):
  7426.                     賞品=魔獣の牙
  7427.                     &break
  7428.                 &case(1):
  7429.                     賞品=緑の魔石
  7430.                     &break
  7431.                 &case(2):
  7432.                     賞品=烈火の石
  7433.             }
  7434.             &break
  7435.         &case(2):
  7436.             対戦相手１=トロル
  7437.             対戦相手２=リリム
  7438.             対戦相手３=イフリート
  7439.             対戦相手４=トレント
  7440.             対戦相手５=サイクロプス
  7441.             対戦相手６=ワイバーン
  7442.             &switch(%rnd(3)){
  7443.                 &case(0):
  7444.                     賞品=竜の牙
  7445.                     &break
  7446.                 &case(1):
  7447.                     賞品=紫の魔石
  7448.                     &break
  7449.                 &case(2):
  7450.                     賞品=大地の杖
  7451.             }
  7452.             &break
  7453.         &case(3):
  7454.             対戦相手１=ケルベロスＣ
  7455.             対戦相手２=ナーガＣ
  7456.             対戦相手３=ミノタウロスＣ
  7457.             対戦相手４=タロスＣ
  7458.             対戦相手５=チャンピオン
  7459.             対戦相手６=チャンピオン
  7460.             &switch(%rnd(3)){
  7461.                 &case(0):
  7462.                     賞品=魔王の牙
  7463.                     &break
  7464.                 &case(1):
  7465.                     賞品=黒の魔石
  7466.                     &break
  7467.                 &case(2):
  7468.                     賞品=宇宙の杖
  7469.             }
  7470.     }
  7471. //対戦
  7472.         ＭＸ=50
  7473.         &jsr ＲＯＵＮＤ
  7474.         &monsprint 187,100,１
  7475.         &jsr ＦＩＧＨＴ！
  7476.     &se 22
  7477.     &battle $1000,31,対戦相手１,1,0,0,0,0
  7478.     &if(%exitcode!=0){        //全滅して終了
  7479.         &if(%gold<0){%gold=32767}
  7480.         &jsr 負け
  7481.         &rts
  7482.     }
  7483.         &if(%gold<0){%gold=32767}
  7484.         &jsr ＷＩＮ！
  7485.         &jsr 継続戦
  7486.         ＭＸ=45
  7487.         &jsr ＲＯＵＮＤ
  7488.         &monsprint 182,100,２
  7489.         &jsr ＦＩＧＨＴ！
  7490.     &se 22
  7491.     &battle $1000,31,対戦相手２,1,0,0,0,0
  7492.     &if(%exitcode!=0){        //全滅して終了
  7493.         &if(%gold<0){%gold=32767}
  7494.         &jsr 負け
  7495.         &rts
  7496.     }
  7497.         &if(%gold<0){%gold=32767}
  7498.         &jsr ＷＩＮ！
  7499.         &jsr 継続戦
  7500.         &jsr ＲＯＵＮＤ
  7501.         &monsprint 182,100,３
  7502.         &jsr ＦＩＧＨＴ！
  7503.     &se 22
  7504.     &battle $1000,31,対戦相手３,1,0,0,0,0
  7505.     &if(%exitcode!=0){        //全滅して終了
  7506.         &if(%gold<0){%gold=32767}
  7507.         &jsr 負け
  7508.         &rts
  7509.     }
  7510.         &if(%gold<0){%gold=32767}
  7511.         &jsr ＷＩＮ！
  7512.         &jsr 継続戦
  7513.         &jsr ＲＯＵＮＤ
  7514.         &monsprint 182,100,４
  7515.         &jsr ＦＩＧＨＴ！
  7516.     &se 22
  7517.     &battle $1000,31,対戦相手４,1,0,0,0,0
  7518.     &if(%exitcode!=0){        //全滅して終了
  7519.         &if(%gold<0){%gold=32767}
  7520.         &jsr 負け
  7521.         &rts
  7522.     }
  7523.         &if(%gold<0){%gold=32767}
  7524.         &jsr ＷＩＮ！
  7525.         &jsr 継続戦
  7526.         
  7527.         &if(クラス==3){&jmp @f}
  7528.         
  7529.         &jsr ＲＯＵＮＤ
  7530.         &monsprint 182,100,５
  7531.         &jsr ＦＩＧＨＴ！
  7532.     &se 22
  7533.     &battle $1000,31,対戦相手５,1,0,0,0,0
  7534.     &if(%exitcode!=0){        //全滅して終了
  7535.         &if(%gold<0){%gold=32767}
  7536.         &jsr 負け
  7537.         &rts
  7538.     }
  7539.         &if(%gold<0){%gold=32767}
  7540.         &jsr ＷＩＮ！
  7541.         &jsr 継続戦
  7542. &label
  7543.         &jsr ＦＩＮＡＬ
  7544.         ＭＸ=116
  7545.         &jsr ＲＯＵＮＤ
  7546.         &jsr ＦＩＧＨＴ！
  7547.     &se 22
  7548.     &battle $1000,31,対戦相手６,1,0,0,0,0
  7549.     &if(%exitcode!=0){        //全滅して終了
  7550.         &if(%gold<0){%gold=32767}
  7551.         &jsr 負け
  7552.         &rts
  7553.     }
  7554.         &if(%gold<0){%gold=32767}
  7555.         &jsr ＷＩＮ！
  7556. //優勝処理
  7557.     &if(Ｃ優勝==0 or Ｂ優勝==0 or Ａ優勝==0){
  7558.         &switch(クラス){//Ｓクラス出場のカウント
  7559.             &case(0)://Ｃクラス優勝
  7560.                 Ｃ優勝=1
  7561.                 &break
  7562.             &case(1)://Ｂクラス優勝
  7563.                 Ｂ優勝=1
  7564.                 &break
  7565.             &case(2)://Ａクラス優勝
  7566.                 Ａ優勝=1
  7567.                 &break
  7568.         }
  7569.     }
  7570.     %manpoint(5)={15,21}        //うろうろモンスター
  7571.     %manpoint(6)={23,21}        //　復活
  7572.     %mandef(1)={$3,0,$00,2,0}
  7573.     %mandef(2)={$3,0,$00,2,0}
  7574.     &complete
  7575.     &if(ナカラ==1){
  7576.         &partyset 0,1,2,3
  7577.     }&else{
  7578.         &partyset 0,1,2
  7579.     }
  7580.     &move 35,11,8
  7581.     //!o(1)f(秘石)pc
  7582.     &if(クラス==3 and Ｓ優勝==0){
  7583.         !o(1)j(2)受付;j(0)おめでとうございますp;
  7584.         !賞品のj(2)秘石j(0)ですp
  7585.         秘石=秘石+1
  7586.         &bgm 24
  7587.         &wait 780
  7588.         &bgm 19
  7589.         !o(1)j(2)第f(秘石)の秘石j(0)を手に入れた！p;
  7590.         &jsr 石チェック
  7591.         Ｓ優勝=1
  7592.     }&else{
  7593.         !o(1)j(2)受付;j(0)おめでとうございますp;
  7594.         !賞品のj(2)i(賞品)j(0)ですp
  7595.         &if(%rasthaveitem!=0){
  7596.             &partyitemin 賞品
  7597.             !o(1)j(2)i(賞品)j(0)を手に入れた！p;
  7598.         }&else{
  7599.             !o(1)これ以上アイテムが持てないのであきらめますp;
  7600.         }
  7601.     }
  7602. &rts
  7603. //退散＆ＮＥＷ
  7604. &label 継続戦
  7605. //退散
  7606. //左柵を開ける
  7607.     &manmove 1,-2
  7608.     &pcm 3
  7609.     &manmove 1,-4
  7610.     &pcm 3
  7611.     &manmove 1,-6
  7612.     &pcm 3
  7613.     &manmove 1,-8
  7614.     &pcm 3
  7615.     %manpoint(1)={100,100}
  7616.     %mandef(1)={$3,0,$00,8,0}
  7617.     &on
  7618.     %mandef(7)={$c,1,$C0,2,1}        //対戦モンスター
  7619.     &on
  7620.     &manmove 7,4,4,4,4,4,4,4,4,8,8,8,8,8,8,8
  7621.     %manpoint(7)={100,100}
  7622.     &on
  7623. //左柵を閉じる
  7624.     %manpoint(1)={9,17}
  7625.     &on
  7626.     &pcm 3
  7627.     &manmove 1,-8
  7628.     &pcm 3
  7629.     &manmove 1,-6
  7630.     &pcm 3
  7631.     &manmove 1,-4
  7632.     &pcm 3
  7633.     &manmove 1,-2
  7634.     &wait 5
  7635. //左柵を開ける
  7636.     &manmove 1,-2
  7637.     &pcm 3
  7638.     &manmove 1,-4
  7639.     &pcm 3
  7640.     &manmove 1,-6
  7641.     &pcm 3
  7642.     &manmove 1,-8
  7643.     &pcm 3
  7644.     %manpoint(1)={100,100}
  7645.     %mandef(1)={$3,0,$00,8,0}
  7646.     &on
  7647. //ＮＥＷチャレンジャー
  7648.     %mandef(7)={$c,1,$C0,2,0}        //対戦モンスター
  7649.     %manpoint(7)={9,14}
  7650.     &on
  7651.     &manmove 7,2,2,2,2,2,2,2,6,6,6,6,6,6,6,6
  7652. //左柵を閉じる
  7653.     %manpoint(1)={9,17}
  7654.     &on
  7655.     &pcm 3
  7656.     &manmove 1,-8
  7657.     &pcm 3
  7658.     &manmove 1,-6
  7659.     &pcm 3
  7660.     &manmove 1,-4
  7661.     &pcm 3
  7662.     &manmove 1,-2
  7663. &rts
  7664. //途中で負けた時
  7665. &label 負け
  7666.     &jsr ＬＯＳＥ！
  7667.     %manpoint(5)={15,21}        //うろうろモンスター
  7668.     %manpoint(6)={23,21}        //　復活
  7669.     %mandef(1)={$3,0,$00,2,0}
  7670.     %mandef(2)={$3,0,$00,2,0}
  7671.     &complete
  7672.     &if(ナカラ==1){
  7673.         &partyset 0,1,2,3
  7674.     }&else{
  7675.         &partyset 0,1,2
  7676.     }
  7677.     &move 35,11,8
  7678.     !o(1)j(2)受付;j(0)残念でしたpc
  7679. &rts
  7680.     //▼▼▼▼▼コロシアム処理２▼▼▼▼▼
  7681.  
  7682. &label 一般
  7683.     !o(1)j(2)受付;j(0)おいくら賭けますか？gp
  7684.     %selectlist={１００Ｇ,５００Ｇ,１０００Ｇ}
  7685.     選択=%select
  7686.     &switch(選択){
  7687.         &case(0):
  7688.             賭金=10
  7689.             &break
  7690.         &case(1):
  7691.             賭金=50
  7692.             &break
  7693.         &case(2):
  7694.             賭金=100
  7695.             &break
  7696.         &default:
  7697.             !;おやめになりますかp
  7698.             &rts
  7699.     }
  7700.     &if(%gold>=(賭金*10)){
  7701.         %gold=%gold-(賭金*10)
  7702.         !;はい、確かにj(2)f(賭金*10)j(0)Ｇですねgpc
  7703.     }&else{
  7704.         !;申し訳ございませんが、お金がたりませんねえpc
  7705.         &rts
  7706.     }
  7707.     !o(1)j(2)受付;j(0)それでは、お楽しみ下さいpc
  7708.     &wait 10
  7709.     &se 22
  7710.     &spppal PTN\KURO.PAL
  7711.     &bgm 31
  7712.     &jsr ＦＩＧＨＴ！
  7713.     &wait 50
  7714.     &monsprint 0,100,消し,2
  7715.     &monsprint 128,100,消し,2
  7716.     &wait 20
  7717.     &monsprint 0,83,バグベア,0
  7718.     &monsprint 44,56,モスマン,0
  7719.     &monsprint 96,77,シルフ,1
  7720.     &monsprint 131,67,ゴブリン,0
  7721.     &monsprint 170,73,サキュバス,0
  7722.     &monsprint 203,41,リザードマン,0
  7723.     
  7724.     &monsprint ＰＸ,20,ＭＡＲＫ,2
  7725.     
  7726.     !o(1)　戦闘中！p
  7727. &label    
  7728.     &se 6
  7729.     &switch(%rnd(28)){
  7730.         &case(0):
  7731.             &jsr バ負け
  7732.             &break
  7733.         &case(1):
  7734.             &jsr バ負け
  7735.             &break
  7736.         &case(2):
  7737.             &jsr バ負け
  7738.             &break
  7739.         &case(3):
  7740.             &jsr バ負け
  7741.             &break
  7742.         &case(4):
  7743.             &jsr バ負け
  7744.             &break
  7745.         &case(5):
  7746.             &jsr バ負け
  7747.             &break
  7748.         &case(6):
  7749.             &jsr バ負け
  7750.             &break
  7751.         &case(7):
  7752.             &jsr バ負け
  7753.             &break
  7754.         &case(8):
  7755.             &jsr モ負け
  7756.             &break
  7757.         &case(9):
  7758.             &jsr モ負け
  7759.             &break
  7760.         &case(10):
  7761.             &jsr モ負け
  7762.             &break
  7763.         &case(11):
  7764.             &jsr モ負け
  7765.             &break
  7766.         &case(12):
  7767.             &jsr モ負け
  7768.             &break
  7769.         &case(13):
  7770.             &jsr モ負け
  7771.             &break
  7772.         &case(14):
  7773.             &jsr シ負け
  7774.             &break
  7775.         &case(15):
  7776.             &jsr シ負け
  7777.             &break
  7778.         &case(16):
  7779.             &jsr シ負け
  7780.             &break
  7781.         &case(17):
  7782.             &jsr シ負け
  7783.             &break
  7784.         &case(18):
  7785.             &jsr シ負け
  7786.             &break
  7787.         &case(19):
  7788.             &jsr ゴ負け
  7789.             &break
  7790.         &case(20):
  7791.             &jsr ゴ負け
  7792.             &break
  7793.         &case(21):
  7794.             &jsr ゴ負け
  7795.             &break
  7796.         &case(22):
  7797.             &jsr ゴ負け
  7798.             &break
  7799.         &case(23):
  7800.             &jsr サ負け
  7801.             &break
  7802.         &case(24):
  7803.             &jsr サ負け
  7804.             &break
  7805.         &case(25):
  7806.             &jsr サ負け
  7807.             &break
  7808.         &case(26):
  7809.             &jsr リ負け
  7810.             &break
  7811.         &case(27):
  7812.             &jsr リ負け
  7813.             &break
  7814.     }
  7815.     ターン=ターン+1
  7816.     &if(ターン<5){&jmp @b}
  7817.     &bgm 0
  7818.     &if(敗退1==0){
  7819.         勝者=0
  7820.         賭金=賭金*50
  7821.         !o(1)　j(2)バグベアj(0)が勝ち残りましたっ！pc
  7822.     }
  7823.     &if(敗退2==0){
  7824.         勝者=1
  7825.         賭金=賭金*30
  7826.         !o(1)　j(2)モスマンj(0)が勝ち残りましたっ！pc
  7827.     }
  7828.     &if(敗退3==0){
  7829.         勝者=2
  7830.         賭金=賭金*20
  7831.         !o(1)　j(2)シルフj(0)が勝ち残りましたっ！pc
  7832.     }
  7833.     &if(敗退4==0){
  7834.         勝者=3
  7835.         賭金=賭金*18
  7836.         !o(1)　j(2)ゴブリンj(0)が勝ち残りましたっ！pc
  7837.     }
  7838.     &if(敗退5==0){
  7839.         勝者=4
  7840.         賭金=賭金*15
  7841.         !o(1)　j(2)サキュバスj(0)が勝ち残りましたっ！pc
  7842.     }
  7843.     &if(敗退6==0){
  7844.         勝者=5
  7845.         賭金=賭金*12
  7846.         !o(1)　j(2)リザードマンj(0)が勝ち残りましたっ！pc
  7847.     }
  7848.     &if(魔券==勝者){
  7849.         &jsr ＷＩＮ！
  7850.         &spppal PTN\GEN.PAL        //パレット復元
  7851.         &mappal PTN\MURA.PAL        //
  7852.         !o(1)j(2)受付;j(0)おめでとうございますpg;
  7853.         !賞金のj(2)f(賭金)j(0)Ｇですp
  7854.         &if(%gold+賭金>32767){        //所持金が上限チェック
  7855.             %gold=32767
  7856.         }&else{
  7857.             %gold=%gold+賭金
  7858.         }
  7859.         !g
  7860.         !o(1)　j(2)f(賭金)j(0)Ｇを手に入れた！pc
  7861.     }&else{
  7862.         &jsr ＬＯＳＥ！
  7863.         &spppal PTN\GEN.PAL        //パレット復元
  7864.         &mappal PTN\MURA.PAL        //
  7865.         !o(1)j(2)受付;j(0)残念でしたp
  7866.     }
  7867.     ターン=0                //初期化
  7868.     敗退1=0
  7869.     敗退2=0
  7870.     敗退3=0
  7871.     敗退4=0
  7872.     敗退5=0
  7873.     敗退6=0
  7874. &rts
  7875. &label バ負け
  7876.     &if(敗退1==0){
  7877.         敗退1=1
  7878.         &se 9
  7879.         !o(1)j(2)バグベアj(0)がやられました！ww
  7880.         &monsprint 0,83,消01,2
  7881.     }&else{
  7882.         ターン=ターン-1
  7883.     }
  7884. &rts
  7885. &label モ負け
  7886.     &if(敗退2==0){
  7887.         敗退2=1
  7888.         &se 9
  7889.         !o(1)j(2)モスマンj(0)がやられました！ww
  7890.         &monsprint 44,56,消02,2
  7891.     }&else{
  7892.         ターン=ターン-1
  7893.     }
  7894. &rts
  7895. &label シ負け
  7896.     &if(敗退3==0){
  7897.         敗退3=1
  7898.         &se 9
  7899.         !o(1)j(2)シルフj(0)がやられました！ww
  7900.         &monsprint 96,77,消03,2
  7901.     }&else{
  7902.         ターン=ターン-1
  7903.     }
  7904. &rts
  7905. &label ゴ負け
  7906.     &if(敗退4==0){
  7907.         敗退4=1
  7908.         &se 9
  7909.         !o(1)j(2)ゴブリンj(0)がやられました！ww
  7910.         &monsprint 131,67,消04,2
  7911.     }&else{
  7912.         ターン=ターン-1
  7913.     }
  7914. &rts
  7915. &label サ負け
  7916.     &if(敗退5==0){
  7917.         敗退5=1
  7918.         &se 9
  7919.         !o(1)j(2)サキュバスj(0)がやられました！ww
  7920.         &monsprint 170,73,消05,2
  7921.     }&else{
  7922.         ターン=ターン-1
  7923.     }
  7924. &rts
  7925. &label リ負け
  7926.     &if(敗退6==0){
  7927.         敗退6=1
  7928.         &se 9
  7929.         !o(1)j(2)リザードマンj(0)がやられました！ww
  7930.         &monsprint 203,41,消06,2
  7931.     }&else{
  7932.         ターン=ターン-1
  7933.     }
  7934. &rts
  7935.  
  7936.     //▼▼▼▼▼コロシアムメッセージ表示▼▼▼▼▼
  7937.  
  7938. &label ＲＯＵＮＤ
  7939.     &monsprint ＭＸ,100,Ｒ
  7940.     &wait 5
  7941.     &monsprint ＭＸ+25,100,Ｏ
  7942.     &wait 5
  7943.     &monsprint ＭＸ+59,100,Ｕ
  7944.     &wait 5
  7945.     &monsprint ＭＸ+84,100,Ｎ
  7946.     &wait 5
  7947.     &monsprint ＭＸ+109,100,Ｄ
  7948.     &wait 5
  7949. &rts
  7950. &label ＦＩＮＡＬ
  7951.     &monsprint 6,100,Ｆ
  7952.     &wait 5
  7953.     &monsprint 31,100,Ｉ
  7954.     &wait 5
  7955.     &monsprint 39,100,Ｎ
  7956.     &wait 5
  7957.     &monsprint 64,100,Ａ
  7958.     &wait 5
  7959.     &monsprint 89,100,Ｌ
  7960.     &wait 5
  7961. &rts
  7962. &label ＦＩＧＨＴ！
  7963.     &wait 50
  7964.     &monsprint 0,100,消し,2
  7965.     &monsprint 128,100,消し,2
  7966.     &wait 20
  7967.     &monsprint 69,100,Ｆ
  7968.     &wait 5
  7969.     &monsprint 69+25,100,Ｉ
  7970.     &wait 5
  7971.     &monsprint 69+32,100,Ｇ
  7972.     &wait 5
  7973.     &monsprint 69+61,100,Ｈ
  7974.     &wait 5
  7975.     &monsprint 69+86,100,Ｔ
  7976.     &wait 5
  7977.     &monsprint 69+111,100,！
  7978.     &wait 5
  7979.     &wait 50
  7980.     &monsprint 0,100,消し,2
  7981.     &monsprint 128,100,消し,2
  7982.     &wait 20
  7983. &rts
  7984. &label ＷＩＮ！
  7985.     &bgm 1
  7986.     &monsprint 83,100,Ｗ
  7987.     &wait 5
  7988.     &monsprint 83+34,100,Ｉ
  7989.     &wait 5
  7990.     &monsprint 83+41,100,Ｎ
  7991.     &wait 5
  7992.     &monsprint 83+69,100,！
  7993.     &wait 5
  7994.     &wait 500
  7995.     &monsprint 83,100,消し,2
  7996.     &wait 20
  7997.     &bgm 19
  7998. &rts
  7999.  
  8000. &label ＬＯＳＥ！
  8001.     !c
  8002.     &bgm 28
  8003.     &monsprint 71,100,Ｌ
  8004.     &wait 5
  8005.     &monsprint 71+25,100,Ｏ
  8006.     &wait 5
  8007.     &monsprint 71+59,100,Ｓ
  8008.     &wait 5
  8009.     &monsprint 71+84,100,Ｅ
  8010.     &wait 5
  8011.     &monsprint 71+109,100,！
  8012.     &wait 5
  8013.     &wait 500
  8014.     &monsprint 71,100,消し,2
  8015.     &wait 20
  8016.     &bgm 19
  8017. &rts
  8018. 
  8019.